gcc/testsuite/gfortran.fortran-torture/execute/pr23373-1.f90

   1 program main
   2   implicit none
   3   real, dimension (:), pointer :: x
   4   x => null ()
   5   x => test (x)
   6   if (.not. associated (x)) call abort
   7   if (size (x) .ne. 10) call abort
   8 contains
   9   function test (p)
  10     real, dimension (:), pointer :: p, test
  11     if (associated (p)) call abort
  12     allocate (test (10))
  13     if (associated (p)) call abort
  14   end function test
  15 end program main