1 files changed, 19 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/structure_constructor_4.f03 b/gcc-4.9/gcc/testsuite/gfortran.dg/structure_constructor_4.f03
new file mode 100644
index 000000000..8a5aaa7a2
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/structure_constructor_4.f03
@@ -0,0 +1,19 @@
+! { dg-do compile }
+! Structure constructor with component naming, test that an error is emitted if
+! a component is given two initializers.
+
+PROGRAM test
+  IMPLICIT NONE
+
+  ! Structure of basic data types
+  TYPE :: basics_t
+    INTEGER :: i
+    REAL :: r
+  END TYPE basics_t
+
+  TYPE(basics_t) :: basics
+
+  basics = basics_t (42, r=1.5, i=15) ! { dg-error "'i' is initialized twice" }
+  basics = basics_t (42, r=1., r=-2.) ! { dg-error "has already appeared in the current argument list" }
+
+END PROGRAM test