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 /gcc/fortran/array.c | |
| 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
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 1 |
1 files changed, 0 insertions, 1 deletions
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) |