2 ! { dg-options "-std=f2008 -fall-intrinsics" }
5 ! Internal procedures as actual arguments (like restricted closures).
6 ! Check it works basically.
8 ! Contributed by Daniel Kraft, d@domob.eu.
14 FUNCTION returnValue ()
15 INTEGER :: returnValue
16 END FUNCTION returnValue
18 SUBROUTINE doSomething ()
19 END SUBROUTINE doSomething
24 FUNCTION callIt (proc)
25 PROCEDURE(returnValue) :: proc
31 SUBROUTINE callSub (proc)
32 PROCEDURE(doSomething) :: proc
35 END SUBROUTINE callSub
46 IF (callIt (myA) /= 42) CALL abort ()
49 IF (a /= 43) CALL abort ()