home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / t208r.f < prev    next >
Text File  |  1994-11-06  |  411b  |  14 lines
  1.       subroutine foo (argchr,maxrow,maxcol)
  2.       character*(*) argchr(maxrow,maxcol,*)
  3.       character one, two*2, three*3, twob*2, oneagain
  4.       parameter (maxy =
  5.      x          54321)
  6.       parameter (maxz =
  7.      x          12345 + maxy)
  8.       character*(*) s
  9.       parameter (s = 'hello')
  10.       integer             MAXTOK
  11.       parameter           (MAXTOK = 10)
  12.       character*(MAXTOK)  toklst
  13.       end
  14.