| ! { 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 |