test_abs Subroutine

subroutine test_abs ()
   call lala( 'display(ones(80,1)''*61); help abs; display(ones(80,1)''*95)')
   if(logs)call lala( 'diary(''abs.log'');')
   call lala( [ character(len=256) :: &
     & 'tally=[0];                                                               ', &
     & 'a=<1 2 3; 4 5 6; 7 8 9>;b=-a;                                            ', &
     & 'if a+b=zeros(a), tally=[tally,0];display(''a-b is zero '');else,tally=[tally,1];display(''a-b is NOT zero'');      ', &
     & 'if sum(b)=-45,tally=[tally,0];display(''expected sum is OK'');else,tally=[tally,1];display(''unexpected sum''),sum(b);', &
     & 'if a=-b,tally=[tally,0];display(''a = -b as expected'');else,tally=[tally,1];display(''a is NOT equal to -b''); ', &
     & 'if sum(tally)=0,display(''abs PASSED'');else,display(''abs FAILED'');tally ', &
     & ''])
end subroutine test_abs