[Bug fortran/16479] New: COMMON block names are not private

["olchansk at panix dot com" <gcc-bugzilla at gcc dot gnu dot org>]

gfortran version "gcc version 3.5.0 20040710 (experimental)" fails to compile
this code because common block name "luns" is erroneously made PUBLIC. Also note
 incorrectly printed common block name in the error message- it contains garbage
characters. In the real code, this problem prevents two inter-dependant modules
from including definitions of a common block from a header file.

module test_common2
  private
  integer iii
  common /luns/ iii
end module test_common2

module test_common3
  use test_common2
  private
  integer iii
  !
  ! Error here: COMMON block 'v,h,X<F3><FF><BF><EE>^R^H^H^M' at (1) has already
been USE-associated
  !
  common /luns/ iii
end module test_common3

K.O.

-- 
           Summary: COMMON block names are not private
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: olchansk at panix dot com
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16479