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