Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-g" }

!

! PR 38152: Procedure pointers as module variables.

!

! Contributed by Daniel Kraft 

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