[Bug fortran/46825] New: ICE compiling modules with MinGW build dated 20101204

["michael.a.richmond at nasa dot gov" <gcc-bugzilla at gcc dot gnu dot org>]

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

           Summary: ICE compiling modules with MinGW build dated 20101204
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: michael.a.richmond@nasa.gov
              Host: i686-pc-mingw32
            Target: i686-pc-mingw32
             Build: i686-pc-mingw32


When I compile the following modules using
ftp://ftp.equation.com/gcc/gcc-4.6-20101204-32.exe:

MODULE GENFILE_TYPE
   IMPLICIT NONE

   TYPE VECTOR
      PRIVATE
         INTEGER              :: FROM_ATOM
   END TYPE VECTOR

   TYPE GENFILE
      PRIVATE
         INTEGER                                :: VECTOR_COUNT
         TYPE(VECTOR), DIMENSION(:), POINTER    :: VECTORS
   END TYPE GENFILE

CONTAINS 
   FUNCTION GET_VECTORS(GF)
      TYPE(GENFILE), INTENT(IN) :: GF
      TYPE(VECTOR), DIMENSION(GF%VECTOR_COUNT) :: GET_VECTORS
      GET_VECTORS = GF%VECTORS
   END FUNCTION GET_VECTORS
END MODULE GENFILE_TYPE   

MODULE ENERGY_FUNCTION
   USE GENFILE_TYPE
   IMPLICIT NONE
   TYPE(GENFILE), PRIVATE                           :: MY_GENFILE
   TYPE(VECTOR), DIMENSION(:), ALLOCATABLE, PRIVATE :: VECTORS
   CONTAINS
      SUBROUTINE ENERGY_FUNCTION_SPECIAL_INIT()
         VECTORS = GET_VECTORS(MY_GENFILE)
      END SUBROUTINE ENERGY_FUNCTION_SPECIAL_INIT
END MODULE ENERGY_FUNCTION

I get the message:

g.f90: In function 'energy_function_special_init':
g.f90:30:0: 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.