! { dg-do compile } | |
! { dg-options "-frecursive" } | |
! PR fortran/37779 | |
! Check that -frecursive allows using procedures in as procedure expressions. | |
MODULE m | |
IMPLICIT NONE | |
CONTAINS | |
SUBROUTINE test () | |
IMPLICIT NONE | |
PROCEDURE(test), POINTER :: procptr | |
CALL bar (test) ! { dg-bogus "Non-RECURSIVE" } | |
procptr => test ! { dg-bogus "Non-RECURSIVE" } | |
END SUBROUTINE test | |
INTEGER FUNCTION func () | |
! Using a result variable is ok of course! | |
func = 42 ! { dg-bogus "Non-RECURSIVE" } | |
END FUNCTION func | |
END MODULE m |