1! { dg-do compile }
2!
3! PR fortran/49397
4!
5! Valid per IR F08/0060 and F2008Corr2, C729
6!
7Program m5
8  Print *,f()
9Contains
10  Subroutine s
11    Procedure(Real),Pointer :: p
12    Print *,g()
13    p => f                           ! (1)
14    Print *,p()
15    p => g                           ! (2)
16    Print *,p()
17  End Subroutine
18End Program
19Function f()
20  f = 1
21End Function
22Function g()
23  g = 2
24End Function
25