test_ans Subroutine

subroutine test_ans ()
   call lala( 'display(ones(80,1)''*61)')
   call lala( 'help ans')
   call lala( 'tally=[0];')
   call lala( [ character(len=256) :: &
     & '                                                                         ', &
     & '                                                                         ', &
     & '                                                                         ', &
     & 'if sum(tally)=0,display(''ans PASSED'');else,display(''ans FAILED'');tally ', &
     & ''])
end subroutine test_ans