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


      1 c
      2 c                       FORCHECK
      3 c                  Signal Truncation
      4 
      5         CHARACTER*10 filename, filespec
      6         INTEGER*2 i2
      7 
      8         READ *, filename
      9         filespec = filename // '.FOR'
     10 
   filename // '.FOR'
 **[125 I] truncation
     11         READ *, i
     12         i2 = i
     13 
   i
 **[125 I] truncation
     14         OPEN (unit=i2, file=filespec)
     15 
     16         END

 FORCHECK PC V11.10          .MAIN.          02-Feb-94  11:10:25  page: 2 
 TRUNC.FOR  


 ENTRY          TYPE NARG  LINE

    .MAIN.         P


 VARIABLE    TYPE     RANK  OPERATIONS  LINES

    FILENAME CH*10                I  R   5   8#  9
    FILESPEC CH*10               A   R   5   9# 14
    I         I*4                 I  R  11# 12
    I2        I*2                A   R   6  12# 14


 UNIT_IDENTIFIER  ACCESS OPERATIONS    LINES

    I2              S F      O         14

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


 *END OF ANALYSIS*

 messages presented:
    2x[125 I] truncation

 number of informative messages:          2

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