test_diary Subroutine

subroutine test_diary()

Arguments

None

Contents

Source Code

test_diary

Source Code

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