$ cat test_mod.f90 
module h5global
  integer i
  integer j
  common /c/ i
  equivalence (i, j)
  private
end module h5global

program bug
  use h5global
end

$ gfortran -c test_mod.f90
test_mod.f90:10.14:

  use h5global
             1
Internal Error at (1):
free_pi_tree(): Unresolved fixup

$ gfortran -v
Using built-in specs.
Target: i386-apple-darwin8.10.1
Configured with: /tmp/gfortran-20080221/ibin/../gcc/configure
--prefix=/usr/local/gfortran --enable-languages=c,fortran
--with-gmp=/tmp/gfortran-20080221/gfortran_libs --enable-bootstrap
Thread model: posix
gcc version 4.4.0 20080221 (experimental) [trunk revision 132519] (GCC) 


It requires the interaction of common, equivalence and private to make it fail.
This is a 4.3/4.4 regression, and probably a bad one because it can be
triggered by HDF, which is widely used.


-- 
           Summary: [4.3/4.4 regression] Reading module file with COMMON and
                    EQUIVALENCE
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org


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

Reply via email to