re PR fortran/34990 (ICE in gfc_typenode_for_spec, at fortran/trans-types.c:842)

2008-01-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/34990
	* array.c (gfc_check_constructor_type): Revert clearing the expression.

From-SVN: r131890

gcc/fortran/ChangeLog

+2008-01-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/34990
+	* array.c (gfc_check_constructor_type): Revert clearing the expression.
+
 2008-01-26  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/34848

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)