module mod
        public
        save
        character c1, c2, c3, c4
        contains
          subroutine init
          c1 = ''
          c2 = ''
          end subroutine init
        end module mod

        program globmod
        use mod
        call init
        call sub
        end program globmod

        subroutine sub
        use mod
        print *, c1, c3
        end subroutine sub

global program analysis:


(file: globmod.for, line: 4)
  C2, declared in MOD
**[323 I] variable unreferenced

(file: globmod.for, line: 4)
  C3, declared in MOD
**[312 E] no value assigned to this variable

(file: globmod.for, line: 4)
  C4, declared in MOD
**[681 I] not used