1 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_20.f90 b/gcc/testsuite/gfortran.dg/proc_decl_20.f90
new file mode 100644
index 000000000..612dac195
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/proc_decl_20.f90
@@ -0,0 +1,24 @@
+! { dg-do compile }
+!
+! PR fortran/36463
+! Gfortran used to fail on this testcase with: 
+! gfc_get_default_type(): Bad symbol '@0'
+!
+! Original program by James Van Buskirk
+! Reduced by Janus Weil <janus@gcc.gnu.org>
+
+module other_fun
+   interface
+      function abstract_fun(x)
+         integer x
+         integer abstract_fun(x)
+      end function abstract_fun
+   end interface
+end module other_fun
+
+ program fptr
+    use other_fun
+    procedure(abstract_fun) :: fun
+ end program fptr
+
+! { dg-final { cleanup-modules "other_fun" } }