FORCHECK PC V11.10  MS5 compiler emulation  02-Feb-94  11:08:10  page: 1 
 PRECISIO.FOR  


      1 c
      2 c                       FORCHECK
      3 c                   Loss of Precision
      4 
      5         DOUBLE PRECISION pi
      6         DATA pi /3.14/
      7 
   3.14
 **[354 I] implicit conversion of constant (expr.) to higher accuracy
      8         r = 2. * pi
   2. * pi
 **[355 I] implicit conversion to less accurate data type
      9         i = r / 2.
     10 
   r / 2.
 **[355 I] implicit conversion to less accurate data type
     11         PRINT *, i
     12 
     13         END

 FORCHECK PC V11.10          .MAIN.          02-Feb-94  11:08:10  page: 2 
 PRECISIO.FOR  


 ENTRY          TYPE NARG  LINE

    .MAIN.         P


 VARIABLE  TYPE     RANK  OPERATIONS  LINES

    I       I*4                A    O  9# 11
    PI      R*8               D    R   5   6#  8
    R       R*4                A   R   8#  9

 FORCHECK PC V11.10  MS5 compiler emulation  02-Feb-94  11:08:10  page: 3 


 *END OF ANALYSIS*

 messages presented:
   1x[354 I] implicit conversion of constant (expr.) to higher accuracy
   2x[355 I] implicit conversion to less accurate data type

 number of informative messages:          3

                                      total  not-included
 number of noncomment source lines:       6             6
 number of nonempty comment lines:        2             2
 number of statements:                    6             6
 number of subprograms:                   1
 number of source files:                  1