program comtst
        character c
        common /com1/ a, b, c(0:10)
        b = 0.
        c = ''
        call sub
        end

        subroutine sub
        character c
        common /com1/ a, b, c(11)
        print *, a, c
        end

global program analysis:


(file: globcom.for, line: 11)
  /COM1/, declared in SUB, object no   3 (C)
**[231 W] array bounds differ from first occurrence

(file: globcom.for, line: 3)
  /COM1/, object A
**[312 E] no value assigned to this variable

(file: globcom.for, line: 3)
  /COM1/, object B
**[680 I] common-block object unreferenced