1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_8.c b/gcc/testsuite/gfortran.dg/proc_ptr_8.c
new file mode 100644
index 00000000000..c732ff6667c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_8.c
@@ -0,0 +1,14 @@
+/* Used by proc_ptr_8.f90.
+   PR fortran/32580.  */
+
+int (*funpointer)(int);
+
+int f(int t)
+{
+  return t*3;
+}
+
+void init()
+{
+ funpointer=f;
+}