Terug naar de homepage van Forcheck
Forcheck detects extensions of common blocks through EQUIVALENCE



 FORCHECK PC V11.10  MS5 compiler emulation  02-Feb-94  11:09:44  page: 1 
 EQUIV.FOR  


      1 c
      2 c                       FORCHECK
      3 c               Verify equivalences
      4 
      5         COMMON /COM1/ iar(10)
      6         INTEGER iarq(5,3)
      7         EQUIVALENCE (iar, iarq)
      8 
      9         END



 FORCHECK PC V11.10          .MAIN.          02-Feb-94  11:09:44  page: 2 
 EQUIV.FOR  


 line      7: IARQ
 **[171 W] extension of COMMON through EQUIVALENCE


 ENTRY          TYPE NARG  LINE

    .MAIN.         P


 VARIABLE  TYPE     RANK  OPERATIONS  LINES

    IAR     I*4       1    C*Q        5  7
    IARQ    I*4       2    C*Q        6  7


 COMMON_BLOCK   TYPE   LENGTH       OPERATIONS

   /COM1/         N        60        C*Q
   /COM1/
 **[110 I] unreferenced



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


 *END OF ANALYSIS*

 messages presented:
    1x[110 I] unreferenced
    1x[171 W] extension of COMMON through EQUIVALENCE

 number of warnings:                      1
 number of informative messages:          1

                                      total  not-included
 number of noncomment source lines:       4             4
 number of nonempty comment lines:        2             2
 number of statements:                    4             4
 number of subprograms:                   1
 number of source files:                  1
previous page top page
Forcheck
Contact