blob: 4fe84106a282df2f4a7464e9a6c2014e7fde03ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { 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
|