b6d433a5025efeab155627805a4ae4d3779c8734
[jabaws.git] / test.f
1       integer argv
2       argv=6
3 c      call getarg(1,argv)
4       write(99,*) argv
5       call FLUSH(99)
6       end