1 c
       2 c               FORCHECK
       3 c           Detect loss of precision
       4 c
       5       DOUBLE PRECISION pi
       6       DATA pi /3.14/

(file: precisio.for, line: 6)
  pi /3.14
**[344 I] implicit conversion of constant (expression) to higher accuracy
          (Specify the constant (expression) with the appropriate kind)

       7
       8       r = 2. * pi

(file: precisio.for, line: 8)
  r = 2. * pi
**[345 I] implicit conversion to less accurate type

       9       i = r / 2.

(file: precisio.for, line: 9)
  i = r / 2.
**[699 I] implicit conversion of real or complex to integer

      10
      11       PRINT *, i
      12
      13       END