test_sum Subroutine

subroutine test_sum()
  call lala( 'display(ones(80,1)''*61); help sum; display(ones(80,1)''*95)')
  call lala( 'tally=[0];')
  if(logs)call lala( 'diary(''sum.log'');')
  call lala( 'a=<1 2 3; 4 5 6; 7 8 9>;')
  call lala( 'b=sum(magic(3));')
  call lala( 'c=sum(a);')
  call lala(  &
  & "if c = 45,display('sum SUM OF ''a'' OK'),tally=[tally,0];else,display('sum SUM OF ''a'' FAILED');shape(a),tally=[tally,1];end")
  call lala( &
  & 'if shape(c) = [1,1] ,display(''sum shape OK'');tally=[tally,0];else,display(''sum shape BAD'');shape(a),tally=[tally,1];')
  call lala( &
  & 'if sum(a) + b = 90, &
  &    display(''sum ARRAY OK''), &
  &    tally=[tally,0]; &
  & else, &
  &    display(''sum ARRAY FAILED''); &
  &    tally=[tally,1]; &
  & end')
  call lala( 'if sum(tally) = 0,display(''sum PASSED''),else,display(''sum FAILED'');tally')
end subroutine test_sum