home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / t208n.f < prev    next >
Text File  |  1994-11-06  |  333b  |  16 lines
  1.       subroutine foo (a,b,c,d)
  2.       real a(1), b(*), c(21,*), d(2)
  3.       parameter (s = ichar(')'))
  4.       parameter (t =
  5. *  comment ( ( (
  6. *  more comments
  7.      x     ichar(')'))
  8.       parameter (u = ! this is a comment
  9.      x        25.0)
  10.       parameter (v =
  11. *  comment ( ( (
  12. *  more comments
  13.      x     2.18281828D+00)
  14.  
  15.       end
  16.