This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/37794] New: Fortran module overloading regression


If we overload symbols from modules with specific names I can cause an ICE.
Works fine with earlier versions of gfortran and an old build of gcc-4.4.0.

This error occurs with a build of svn version  number 141030

gfortran-4.4  -c -o hsl_of01d.o hsl_of01d.f90
gfortran-4.4  -c -o hsl_of01i.o hsl_of01i.f90
gfortran-4.4  -c -o test.o test.f90
f951: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
make: *** [test.o] Error 1

Files:

! hsl_of01d.f90
module hsl_of01_double
  implicit none

  type of01_data_private
    real :: foo
  end type of01_data_private

  type of01_data
    type (of01_data_private) :: private
  end type of01_data
end module hsl_of01_double

! hsl_of01i.f90
module hsl_of01_integer
  implicit none

  type of01_data_private
    integer :: youngest
  end type of01_data_private
end module hsl_of01_integer

! test.f90
module test_mod
  use hsl_of01_double, of01_rdata => of01_data
  use hsl_of01_integer, of01_idata => of01_data

  implicit none
end module test_mod


-- 
           Summary: Fortran module overloading regression
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: J dot Hogg at rl dot ac dot uk
 GCC build triplet: x86_64-unknown-linux-gnu
  GCC host triplet: x86_64-unknown-linux-gnu
GCC target triplet: x86_64-unknown-linux-gnu


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]