blob: cb1c28e81d3301074d92db5126ba1af27bdeecbc (
plain)
1
2
3
4
5
6
7
8
|
! { 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
|