| ! { dg-do compile } | |
| ! { dg-options "-g" } | |
| ! | |
| ! PR 38152: Procedure pointers as module variables. | |
| ! | |
| ! Contributed by Daniel Kraft <domob@gcc.gnu.org> | |
| MODULE myfortran_binding | |
| IMPLICIT NONE | |
| PROCEDURE(error_stop), POINTER :: error_handler | |
| CONTAINS | |
| LOGICAL FUNCTION myfortran_shutdown () | |
| CALL error_handler () | |
| END FUNCTION myfortran_shutdown | |
| SUBROUTINE error_stop () | |
| END SUBROUTINE error_stop | |
| END MODULE myfortran_binding | |
| use myfortran_binding | |
| error_handler => error_stop | |
| end |