diff options
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/structure_constructor_3.f03')
| -rw-r--r-- | gcc-4.9/gcc/testsuite/gfortran.dg/structure_constructor_3.f03 | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/structure_constructor_3.f03 b/gcc-4.9/gcc/testsuite/gfortran.dg/structure_constructor_3.f03 new file mode 100644 index 000000000..5fb7d612d --- /dev/null +++ b/gcc-4.9/gcc/testsuite/gfortran.dg/structure_constructor_3.f03 @@ -0,0 +1,18 @@ +! { dg-do compile } +! Structure constructor with component naming, test that an error is emitted +! if there are arguments without name after ones with name. + +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 (i=42, 1.5) ! { dg-error "Missing keyword name" } + +END PROGRAM test |