test_zeros Subroutine

subroutine test_zeros()
  call lala( 'display(ones(80,1)''*61); help zeros; display(ones(80,1)''*95)')
  call lala( 'tally=[0];')
  if(logs)call lala( 'diary(''zeros.log'');')
  call lala( 'a=zeros(30,40);')
  call lala( 'b=sum(a);')
  call lala(  &
  & 'if b = 0,display(''zeros SUM OK''),tally=[tally,0];else,display(''zeros SUM FAILED'');shape(a),tally=[tally,1];end')
  call lala( &
  & 'if shape(a) = [30,40],display(''zeros shape OK'');tally=[tally,0];else,display(''zeros shape BAD'');shape(a),tally=[tally,1];')
  call lala( &
  & 'if sum(a-zeros(30,40)) = 0, &
  &    display(''zeros DELTA OK''), &
  &    tally=[tally,0]; &
  & else, &
  &    display(''zeros DELTA FAILED''); &
  &    tally=[tally,1]; &
  & end')
  call lala( 'if sum(tally) = 0,display(''zeros PASSED''),else,display(''zeros FAILED'');tally')
end subroutine test_zeros