! { dg-do compile } | |
! | |
! PR fortran/49397 | |
! | |
! Valid per IR F08/0060 and F2008Corr2, C729 | |
! | |
Program m5 | |
Print *,f() | |
Contains | |
Subroutine s | |
Procedure(Real),Pointer :: p | |
Print *,g() | |
p => f ! (1) | |
Print *,p() | |
p => g ! (2) | |
Print *,p() | |
End Subroutine | |
End Program | |
Function f() | |
f = 1 | |
End Function | |
Function g() | |
g = 2 | |
End Function |