! { dg-do run } | |
! PR 40067 - this used to segfault on an unallocated return array. | |
integer, dimension(10) :: int1d | |
integer, dimension(:), pointer :: int1d_retrieved | |
allocate(int1d_retrieved(10)) | |
if (any(shape(int1d_retrieved) /= shape(INT1D))) STOP 1 | |
end |