home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchk294s.zip / ftnchek-2.9.4 / test / quad.f < prev    next >
Text File  |  1996-05-26  |  567b  |  28 lines
  1. C  Test of parsing and checking quad precision variables & constants.
  2. C  No intrinsic functions at this time.
  3.       real r
  4.       double precision d
  5.       real*8 r8
  6.       real*16 q
  7.       complex*32 cq
  8.       q = 1.234Q5
  9.       q = 1.234Q+05
  10.       q = 1.234Q+345
  11.       q = 1.234Q-345
  12.       d = 1.234Q+05
  13.       r = 1.234Q+05
  14.       d = q
  15.       q = d
  16.       r = q
  17.       q = r
  18.       cq = q
  19.       q = qsqrt(q)
  20.       cq = cqsqrt(cq)
  21.       r = qsqrt(q)
  22.       q = qsqrt(r)
  23.       q = qsqrt(d)
  24.       r8 = qsqrt(q)
  25.       q = qprod(d,r8)
  26.       q = qmax1(1.234Q5,q,1.234Q-5)
  27.       end
  28.