gcc/testsuite/gfortran.dg/allocate_derived_2.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 42888: [4.5 Regression] ICE in fold_convert_loc, at fold-const.c:2670
   4 !
   5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
   6
   7   implicit none
   8
   9   type t
  10      integer :: X = -999.0   ! Real initializer!
  11   end type t
  12
  13   type(t), allocatable :: x
  14   class(t), allocatable :: y,z
  15
  16   allocate (x)
  17   allocate (y)
  18   allocate (t::z)
  19
  20 end