1! { dg-do run } 2! PR 40067 - this used to segfault on an unallocated return array. 3 integer, dimension(10) :: int1d 4 integer, dimension(:), pointer :: int1d_retrieved 5 6 allocate(int1d_retrieved(10)) 7 if (any(shape(int1d_retrieved) /= shape(INT1D))) call abort() 8 end 9