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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9e0c2f0..282b06a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c
index 116937b..0c30b33 100644 (file)
--- 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)