1 files changed, 35 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_35.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_35.f90
new file mode 100644
index 0000000000..75a76b8ebb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_35.f90
@@ -0,0 +1,35 @@
+! { dg-do compile }
+!
+! PR 54147: [F03] Interface checks for PPCs & deferred TBPs
+!
+! Contributed by Janus Weil <janus@gcc.gnu.org>
+
+  interface gen
+    procedure gen
+  end interface
+
+  type t1
+    procedure(gen),pointer,nopass  :: p1
+    procedure(gen2),pointer,nopass :: p2  ! { dg-error "may not be generic" }
+  end type
+
+  type t2
+    procedure(sf),pointer,nopass   :: p3  ! { dg-error "may not be a statement function" }
+  end type
+
+  type t3
+    procedure(char),pointer,nopass :: p4  ! { dg-error "Intrinsic procedure" }
+  end type
+
+  interface gen2
+    procedure gen
+  end interface
+
+  sf(x) = x**2  ! { dg-warning "Obsolescent feature" }
+
+contains
+
+  subroutine gen
+  end subroutine
+
+end