1 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/structure_constructor_9.f90 b/gcc/testsuite/gfortran.dg/structure_constructor_9.f90
new file mode 100644
index 000000000..75120856e
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/structure_constructor_9.f90
@@ -0,0 +1,27 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+! Check for notify-std-messages when F2003 structure constructors are compiled
+! with -std=f95.
+
+PROGRAM test
+  IMPLICIT NONE
+
+  ! Basic type with default initializers
+  TYPE :: basics_t
+    INTEGER :: i = 42
+    REAL :: r = 1.5
+  END TYPE basics_t
+
+  TYPE(basics_t) :: basics
+
+  ! This is ok in F95
+  basics = basics_t (1, 2.)
+
+  ! No argument naming in F95
+  basics = basics_t (1, r = 4.2) ! { dg-error "Fortran 2003" }
+
+  ! No optional arguments in F95
+  basics = basics_t () ! { dg-error "Fortran 2003" }
+  basics = basics_t (5) ! { dg-error "Fortran 2003" }
+
+END PROGRAM test