home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchk294s.zip / ftnchek-2.9.4 / test / dcltest.f < prev    next >
Text File  |  1996-09-08  |  202b  |  12 lines
  1.       program test1
  2. c
  3.       character  STRING1*6
  4.       parameter( STRING1 = 'abc123' )
  5.  
  6.       character  STRING2*(6)
  7.       parameter( STRING2 = 'xyz789' )
  8. c
  9.       write(*,*) STRING1,STRING2
  10. c
  11.       end
  12.