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)