[Bug fortran/37735] New: Allocatable components in vectors of derived types cause ICE on assignment

["saw44 at cam dot ac dot uk" <gcc-bugzilla at gcc dot gnu dot org>]

$ gfortran-4.exe -v -save-temps -c PrettyPix.f95
Using built-in specs.
Target: i686-pc-cygwin
Configured with: /gnu/gcc/release/gcc4-4.3.2-1/src/gcc-4.3.2/configure
--srcdir=/gnu/gcc/release/gcc4-4.3.2-1/src/gcc-4.3.2 --prefix=/usr
--exec-prefix=/usr --bindir=/usr/bin --sbindir=/usr/sbin --libexecdir=/usr/sbin
--localstatedir=/var --sysconfdir=/etc --datadir=/usr/share
--infodir=/usr/share/info --mandir=/usr/share/man -v --with-gmp=/usr
--with-mpfr=/usr --enable-bootstrap --enable-version-specific-runtime-libs
--with-slibdir=/usr/bin --libexecdir=/usr/lib --enable-static --enable-shared
--enable-shared-libgcc --enable-__cxa_atexit --with-gnu-ld --with-gnu-as
--with-dwarf2 --disable-sjlj-exceptions
--enable-languages=ada,c,c++,fortran,java,objc,obj-c++ --disable-symvers
--enable-libjava --program-suffix=-4
Thread model: single
gcc version 4.3.2 20080827 (alpha-testing) 1 (GCC) 
COLLECT_GCC_OPTIONS='-v' '-save-temps' '-c' '-mtune=generic'
 /usr/lib/gcc/i686-pc-cygwin/4.3.2/f951.exe PrettyPix.f95 -quiet -dumpbase
PrettyPix.f95 -mtune=generic -auxbase PrettyPix -version
-fintrinsic-modules-path finclude -o PrettyPix.s
GNU F95 (GCC) version 4.3.2 20080827 (alpha-testing) 1 (i686-pc-cygwin)
        compiled by GNU C version 4.3.2 20080827 (alpha-testing) 1, GMP version
4.2.3, MPFR version 2.3.1.
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
PrettyPix.f95: In function 'scene_set_look_at_path':
PrettyPix.f95:19: internal compiler error: in
gfc_conv_descriptor_data_set_internal, at fortran/trans-array.c:174
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.


PrettyPix.f95:
======================

module PrettyPix_module

  implicit none

  type Spline
     real, allocatable, dimension(:) ::y2
  end type Spline

  type Path
     type(Spline) :: r(3)
  end type Path

  type Scene
     type(path) :: look_at_path
  end type Scene

contains

  subroutine scene_set_look_at_path(this,p)
    type(scene), intent(inout) :: this
    type(path),  intent(in)    :: p
    this%look_at_path = p
  end subroutine scene_set_look_at_path

end module PrettyPix_module

===================

The problem seems to disappear if r(3) -> r


-- 
           Summary: Allocatable components in vectors of derived types cause
                    ICE on assignment
           Product: gcc
           Version: 4.3.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: saw44 at cam dot ac dot uk
 GCC build triplet: 4.3.2 20080827 (alpha-testing) 1 (GCC)
GCC target triplet: i686-pc-cygwin


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