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 8program 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 15end program 16