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" } }
|