From: Jerry DeLisle Date: Sun, 27 Jan 2008 19:38:59 +0000 (+0000) Subject: re PR fortran/34990 (ICE in gfc_typenode_for_spec, at fortran/trans-types.c:842) X-Git-Tag: releases/gcc-4.3.0~366 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=938f31f19253cd34fff846b86bfa7eabe539e634;p=thirdparty%2Fgcc.git 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 --- 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)