gcc/testsuite/gfortran.dg/shape_5.f90

   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