[patch,fortran] [4.3 Regression] PR34990 ICE in gfc_typenode_for_spec, at fortran/trans-types.c:842

[Paul Thomas]

Jerry,

You seem to be running round cleaning up all my do-dos.... thanks!

Paul
> Committed revision 131890.
>
> As obvious.  Regression tested on X86-64.  I will follow with a test 
> case.
>
> 2008-01-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
>
>     PR fortran/34990
>     * array.c (gfc_check_constructor_type): Revert clearing the 
> expression.
>
> Index: array.c
> ===================================================================
> --- array.c     (revision 131889)
> +++ array.c     (working copy)
> @@ -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)
>
>