home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchk294s.zip / ftnchek-2.9.4 / test / sequence.f < prev    next >
Text File  |  1996-08-11  |  212b  |  10 lines
  1. C tests message about statement out of order.
  2.       data x /1.0/
  3.       integer a,b,c
  4.       common a,b,c
  5.       sqr(y)=y*y
  6.       double precision d
  7.       read(*,*) a,b,c,d
  8.       write(*,*) a,b,c,d,sqr(x)
  9.       end
  10.