home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchk294s.zip / ftnchek-2.9.4 / test / t208u.f < prev    next >
Text File  |  1994-11-06  |  818b  |  31 lines
  1.       integer             MAXTOK
  2.       parameter           (MAXTOK = 10)
  3.       character*(MAXTOK)  toklst, tokls2*(2*MAXTOK), tokls3*(MAXTOK**2)
  4.       character*(MAXTOK)  tokarr(100), tokar2(200)*(2*MAXTOK), 
  5.      x    tokar3(300)*(MAXTOK**2)
  6.  
  7.       integer             MAXTK1
  8.       parameter           (MAXTK1 = 10)
  9.  
  10. *     Test with comment lines between continuation lines
  11.       character*(MAXTK1)  
  12. *     intervening comment
  13.      x    tk1lst, 
  14. *     intervening comment
  15.      x    tk1ls2*(2*MAXTK1), 
  16. *     intervening comment
  17.      x    tk1ls3*(MAXTK1**2)
  18.  
  19.  
  20. *     Test with blank lines between continuation lines
  21.       integer             MAXTK2
  22.       parameter           (MAXTK2 = 10)
  23.       character*(MAXTK2)
  24.  
  25.      x    tk2arr(100),
  26.  
  27.      x    tk2ar2(200)*(2*MAXTK2), 
  28.  
  29.      x    tk2ar3(300)*(MAXTK2**2)
  30.       end
  31.