30 lines
551 B
Fortran
30 lines
551 B
Fortran
|
! { 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
|
||
|
|
||
|
! { dg-final { cleanup-modules "myfortran_binding" } }
|