gcc/testsuite/gfortran.dg/proc_ptr_9.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/36705
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6
   7 save :: p
   8 procedure() :: p
   9 pointer :: p
  10
  11 contains
  12
  13 subroutine bar(x)
  14   procedure(), intent(in) :: x
  15   pointer :: x
  16 end subroutine bar
  17
  18 end