blob: 4014986b3b54654e3ae501a312318ad54a173219 (
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
26
27
|
! { 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" } }
|
