test_prod Subroutine

subroutine test_prod ()
   call lala( [ character(len=256) :: &
     & 'display(ones(80,1)''*61);help prod;clear;tally=[0];                                                                ', &
     & 'a = < 1  2  3 ; 4  5  6 ; 7  8  9 >;                                                                              ', &
     & 'expected=362880;                                                                                                  ', &
     & 'c=a''*2;                                                                                                           ', &
     & 'd=prod(c)/2**9;                                                                                                   ', &
     & '                                                                                                                  ', &
     & 'if prod(a) = expected, tally=[tally,0];display(''prod(a) PASSED'');else,tally=[tally,1];display('' prod(a) FAILED''); ', &
     & 'if expected = d, tally=[tally,0];display(''d PASSED'');else,tally=[tally,1];display(''d FAILED'');                    ', &
     & 'if sum(tally)=0,display(''prod PASSED'');else,display(''prod FAILED'');tally                                          ', &
     & ''])
end subroutine test_prod