gcc/testsuite/gfortran.dg/proc_ptr_46.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/49397
   4 !
   5 ! Invalid per IR F08/0060 and F2008Corr2, C729
   6 !
   7
   8 !  Print *,f() ! << Valid when uncommented
   9 Contains
  10   Subroutine s
  11     Procedure(Real),Pointer :: p
  12     p => f  ! { dg-error "Procedure pointer target 'f' at .1. must be either an intrinsic, host or use associated, referenced or have the EXTERNAL attribute" }
  13   End Subroutine
  14 End