1 files changed, 29 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_13.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_13.f90
new file mode 100644
index 000000000..5c66c54e9
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_13.f90
@@ -0,0 +1,29 @@
+! { 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" } }