FORCHECK PC V11.10  MS5 compiler emulation  03-Nov-93  11:29:11  page: 1 
 FCKDEM.FOR  /OB/RI


      1         PROGRAM FCKDEM
      2 C================================================================
      3 C
      4 C       this is a FORTRAN-77 demonstration program
      5 C               to show FORCHECK output
      6 C
      7 C================================================================
      8 C
      9         PARAMETER (LUN=1)
     10 C
     11         COMMON /COM/ NAME1
     12 C       INCLUDE 'FCKDEM.INC'
     13         COMMON/COM1/K
     14         INTEGER IAR(10)
     15         EQUIVALENCE (NAME,NAME1)
     16         CHARACTER*1 NAME(6), NAME1*6
     17 C
     18         DATA L1/1/, LABEL/1000/
     19 C
     20 C================================================================
     21 C
     22         DO 10 I = 1, 6
     23           NAME(I) = ' '
     24  10     CONTINUE
     25         NAME(7) = ' '
     26 C
   7
 **[116 E] subscript out of range
     27         L = A + FUN(1.)
   A                               
 **[115 E] no value assigned to this item
   A + FUN(1.)
 **[355 I] implicit conversion to less accurate data type
     28         CALL FCKSUB (NAME, IAR, 2)
     29 C
     30         WRITE(LUN,LABEL), 'European Software'
   LABEL                           
 **[112 E] no statement label assigned to this variable
   LABEL
 **[357 W] obsolescent Fortran 90 feature
   , 'European Software
 **[198 W] "," not allowed
     31         READ *,I
     32  1000   FORMAT(A)
     33 C
     34         END

 FORCHECK PC V11.10          FCKDEM          03-Nov-93  11:29:11  page: 2 
 FCKDEM.FOR  /OB/RI


 ENTRY          TYPE NARG  LINE

    FCKDEM         P          1


 LABEL TYPE LINES

     10 L   22  24#
   1000 F   32#
   1000                            
 **[110 I] unreferenced


 CONSTANT  TYPE   LINES

    LUN     I*4    9# 30


 VARIABLE  TYPE     RANK  OPERATIONS  LINES

    A       R*4                    R  27
    I       I*4                 IL R  22# 23  31#
    IAR     I*4       1           S   14  28
    K       I*4            C*         13
    L       I*4                A      27#
    L1      I*4               D       18#
    LABEL   I*4               D    R  18# 30
    NAME   CH*1       1    C Q A  S   15  16  23# 25# 28
    NAME1  CH*6            C Q        11  15  16
   A                               
 **[109 E] not defined
   L                               
 **[110 I] unreferenced
   L1                              
 **[110 I] unreferenced
   LABEL                           
 **[112 E] no statement label assigned to this variable


 SUBPROGRAM     TYPE NARG OPERATIONS  LINES

    FCKSUB         S  3               28
    FUN     R*4    F  1            R  27


 COMMON_BLOCK   TYPE   LENGTH       OPERATIONS

   /COM/         CH         6        C Q A  S
   /COM1/         N         4        C*
   /COM1/
 **[110 I] unreferenced


 UNIT_IDENTIFIER  ACCESS OPERATIONS    LINES

    LUN             S F    W           30