From f2cbd86c34ffc36a36090944d18b86985b22442d Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Thu, 13 May 2010 10:08:05 -0400 Subject: re PR fortran/35779 (error pointer wrong in PARAMETER) gcc/fortran/: 2010-05-13 Daniel Franke PR fortran/35779 * intrinsic.c (gfc_init_expr): Renamed to gfc_init_expr_flag. Updated all usages. * expr.c (init_flag): Removed; use gfc_init_expr_flag everywhere. * array.c (match_array_list): Pass on gfc_init_expr_flag when matching iterators. gcc/testsuite/: 2010-05-13 Daniel Franke PR fortran/35779 * gfortran.dg/initialization_25.f90: New. From-SVN: r159366 --- gcc/fortran/array.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/array.c') diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 3ffc397..25c6e14 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -879,7 +879,7 @@ match_array_list (gfc_constructor_base *result) for (n = 1;; n++) { - m = gfc_match_iterator (&iter, 0); + m = gfc_match_iterator (&iter, gfc_init_expr_flag); if (m == MATCH_YES) break; if (m == MATCH_ERROR) -- cgit v1.1