From 52f126782f91d7277e11864fb53d4d7eb769bcc2 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 10 Feb 2010 03:34:33 +0000 Subject: [PATCH] re PR fortran/42999 (bogus error: Parameter 'i' at (1) has not been declared or is a variable, which does not reduce to a constant expression) 2010-02-09 Jerry DeLisle PR fortran/42999 * gfortran.dg/array_constructor_35.f90: New test. From-SVN: r156643 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/array_constructor_35.f90 | 9 +++++++++ 2 files changed, 14 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/array_constructor_35.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a07aebc01bf..7c00478f26a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-02-09 Jerry DeLisle + + PR fortran/42999 + * gfortran.dg/array_constructor_35.f90: New test. + 2010-02-09 Kaveh R. Ghazi * gcc.dg/tree-ssa/inline-4.c: Bind pic locally. diff --git a/gcc/testsuite/gfortran.dg/array_constructor_35.f90 b/gcc/testsuite/gfortran.dg/array_constructor_35.f90 new file mode 100644 index 00000000000..fddd1e952b6 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/array_constructor_35.f90 @@ -0,0 +1,9 @@ +! { dg-do compile } +! PR42999 bogus error: Parameter 'i' at (1) has not been declared +! or is a variable, which does not reduce to a constant expression + TYPE DD + INTEGER :: I + END TYPE DD + TYPE(DD) :: X(2)=(/(DD(I),I=1,2)/) + END + -- 2.11.4.GIT