Subversion Repositories openrisc

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