1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/public_private_module.f90 b/gcc/testsuite/gfortran.dg/public_private_module.f90
new file mode 100644
index 000000000..48e78b60c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/public_private_module.f90
@@ -0,0 +1,19 @@
+! { dg-do compile }
+! See PR fortran/36251.
+module a
+  implicit none
+  integer :: i = 42
+end module a
+
+module b
+  use a
+  implicit none
+  public a  ! { dg-error "attribute applied to" }
+end module b
+
+module d
+  use a
+  implicit none
+  private a  ! { dg-error "attribute applied to" }
+end module d
+! { dg-final { cleanup-modules "a" } }