gcc/testsuite/gfortran.dg/recursive_check_5.f03


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