1! { dg-do compile }
2! { dg-options "-g" }
3!
4! PR 38152: Procedure pointers as module variables.
5!
6! Contributed by Daniel Kraft <domob@gcc.gnu.org>
7
8MODULE myfortran_binding
9
10  IMPLICIT NONE
11  PROCEDURE(error_stop), POINTER :: error_handler
12
13CONTAINS
14
15  LOGICAL FUNCTION myfortran_shutdown ()
16    CALL error_handler ()
17  END FUNCTION myfortran_shutdown
18
19  SUBROUTINE error_stop ()
20  END SUBROUTINE error_stop
21
22END MODULE myfortran_binding
23
24
25use myfortran_binding
26error_handler => error_stop
27end
28