home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / t208o.f < prev    next >
Text File  |  1994-11-06  |  2KB  |  61 lines
  1. *     Parameters for which statement order must be preserved
  2.       real a, b, c
  3.       parameter (c = 1.23)
  4.       parameter (b = 2.0*c)
  5.       parameter (a = (b + c))
  6.  
  7. *     Parameter with continuation lines
  8.       real d
  9.       parameter (d
  10.      x
  11.      x  =
  12.      x
  13.      x  4.0)
  14.  
  15. *     Parameter with continuation lines separated by comment lines
  16.  
  17.       parameter (e
  18. *     comment line
  19. *     another comment line
  20.      x     =
  21. *     yet another comment line
  22. *     still another comment line
  23.      x     5
  24.      x     .
  25.      x     4
  26.      x   
  27.      x     )
  28.  
  29. *     Parameter with embedded comment
  30.       real t
  31.       parameter (t = ! this is a comment
  32.      x        25.0)
  33.  
  34. *     Parameters with quoted strings.
  35.       integer u
  36.       parameter (u = b'0110011010011001')
  37.  
  38.       integer v
  39.       parameter (v = z'ffff')
  40.  
  41.       integer w
  42.       parameter (w = 'ffff'x)
  43.  
  44.       integer x
  45.       parameter (x = x'ffff')
  46.  
  47.       character*(*) y
  48.       parameter (y = 'yes, isn''t this nice')
  49.  
  50.       character*(*) z
  51.       parameter (z = 'O''Neil''s brother''s pub')
  52.  
  53. *     Parameters with long text past column 72
  54.       character*(*) s
  55.       parameter (s = '123456789.123456789.123456789.123456789.123456789.SEQ#0001
  56.      x123456789.123456789.123456789.123456789.123456789.123456789.123456SEQ#0002
  57.      x789.123456789.123456789.123456789.123456789.123456789.123456789.12SEQ#0003
  58.      x3456789.123456789.123456789.123456789.123456789.123456789.12345678SEQ#0004
  59.      x9.123456789.123456789.123456789.123456789.123456789.')            SEQ#0005
  60.       end
  61.