home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / t208h.f < prev    next >
Text File  |  1994-11-06  |  205b  |  7 lines
  1.       subroutine foo(x)
  2.       real r1mach
  3. *     ftnchek types sqrt() as generic here; I think it should be REAL.
  4. *     This results in loss of a declaration "REAL SQRT"
  5.       x = sqrt(r1mach(3))
  6.       end
  7.