28 lines
584 B
Fortran
28 lines
584 B
Fortran
|
! { 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
|
||
|
|
||
|
! { dg-final { cleanup-modules "m" } }
|