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" } }
|