| ! { dg-do run } | |
| ! | |
| ! PR fortran/37253 | |
| ! | |
| ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr> | |
| module myMod | |
| CONTAINS | |
| real function proc3( arg1 ) | |
| integer :: arg1 | |
| proc3 = arg1+7 | |
| end function proc3 | |
| subroutine proc4( arg1 ) | |
| procedure(real), pointer :: arg1 | |
| if (arg1(0)/=7) call abort() | |
| end subroutine proc4 | |
| end module myMod | |
| program myProg | |
| use myMod | |
| PROCEDURE (real), POINTER :: p => NULL() | |
| p => proc3 | |
| call proc4( p ) | |
| end program myProg | |