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
9Contains
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
14End
15