gcc/testsuite/gfortran.dg/proc_ptr_13.f90

   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
   8 MODULE myfortran_binding
   9
  10   IMPLICIT NONE
  11   PROCEDURE(error_stop), POINTER :: error_handler
  12
  13 CONTAINS
  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
  22 END MODULE myfortran_binding
  23
  24
  25 use myfortran_binding
  26 error_handler => error_stop
  27 end
  28
  29 ! { dg-final { cleanup-modules "myfortran_binding" } }