gcc/testsuite/gfortran.dg/alloc_comp_initializer_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/50050
   4 ! Out of bound whilst releasing initialization of allocate object
   5 !
   6 ! Contributed by someone <sigurdkn@gmail.com>
   7
   8 program bug
   9   implicit none
  10   type foo
  11     integer, pointer :: a => null()
  12   end type
  13   type(foo), dimension(:,:), allocatable :: data
  14   allocate(data(1:1,1)) ! This used to lead to an ICE
  15 end program