From 938f31f19253cd34fff846b86bfa7eabe539e634 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 27 Jan 2008 19:38:59 +0000 Subject: [PATCH] re PR fortran/34990 (ICE in gfc_typenode_for_spec, at fortran/trans-types.c:842) 2008-01-27 Jerry DeLisle PR fortran/34990 * array.c (gfc_check_constructor_type): Revert clearing the expression. From-SVN: r131890 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/array.c | 1 - 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9e0c2f0fcec7..282b06a4de06 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2008-01-27 Jerry DeLisle + + PR fortran/34990 + * array.c (gfc_check_constructor_type): Revert clearing the expression. + 2008-01-26 Tobias Burnus PR fortran/34848 diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 116937b4ceee..0c30b3374cc5 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1025,7 +1025,6 @@ gfc_check_constructor_type (gfc_expr *e) cons_state = CONS_START; gfc_clear_ts (&constructor_ts); - gfc_clear_ts (&e->ts); t = check_constructor_type (e->value.constructor); if (t == SUCCESS && e->ts.type == BT_UNKNOWN) -- 2.47.2