1 c
       2 c                      FORCHECK
       3 c           Detection of extension of COMMON through equivalence
       4 c
       5       COMMON /COM1/ iar(10)
       6       INTEGER iarq(5,3)
       7       EQUIVALENCE (iar, iarq)
       8
       9       END

(file: equiv.for, line: 7)
  IARQ
**[240 W] extension of COMMON through EQUIVALENCE