1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/access_spec_1.f90 b/gcc/testsuite/gfortran.dg/access_spec_1.f90
new file mode 100644
index 000000000..2c080c9c6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/access_spec_1.f90
@@ -0,0 +1,18 @@
+! { dg-do compile }
+! PR fortran/31472
+! Access specifications: Valid Fortran 2003 code
+module mod
+  implicit none
+  private
+  integer, public :: i
+  integer, private :: z
+  integer :: j, x
+  private :: j
+  public  :: x
+  type, public :: bar
+    PRIVATE
+    integer, public :: y  ! Fortran 2003
+    integer, private :: z  ! Fortran 2003
+  end type
+end module
+! { dg-final { cleanup-modules "mod" } }