diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/array.c | 1 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9e0c2f0..282b06a 100644 --- 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 --- 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) |