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