diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-27 19:38:59 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-27 19:38:59 +0000 |
| commit | 938f31f19253cd34fff846b86bfa7eabe539e634 (patch) | |
| tree | c8630bb5d408dc035c2e40cc8cfc2a933c32f7e0 | |
| parent | 4f605349df09fd1c66c6ace842c4dc94afd12f4e (diff) | |
| download | gcc-938f31f19253cd34fff846b86bfa7eabe539e634.zip gcc-938f31f19253cd34fff846b86bfa7eabe539e634.tar.gz gcc-938f31f19253cd34fff846b86bfa7eabe539e634.tar.bz2 | |
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
| -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) |