diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-17 02:19:58 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-17 02:19:58 +0000 |
| commit | fb2974dcf53f960231e8c4bc2b294f8900b3beef (patch) | |
| tree | 41a45db0d953239503fd8008118abb5ab16c5be0 | |
| parent | 25f51c73fe1a2d5f97fbce559504afebab18e9c9 (diff) | |
| download | gcc-fb2974dcf53f960231e8c4bc2b294f8900b3beef.zip gcc-fb2974dcf53f960231e8c4bc2b294f8900b3beef.tar.gz gcc-fb2974dcf53f960231e8c4bc2b294f8900b3beef.tar.bz2 | |
re PR fortran/85314 (gcc/fortran/resolve.c:9222: unreachable code ?)
2018-12-16 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/85314
* resolve.c (resolve_transfer): Remove dead code.
From-SVN: r267196
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 5 |
2 files changed, 5 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c25a450..88acec1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,9 @@ 2018-12-16 Steven G. Kargl <kargl@gcc.gnu.org> + * resolve.c (resolve_transfer): Remove dead code. + +2018-12-16 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/88116 PR fortran/88467 * array.c (gfc_match_array_constructor): Check return value of diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index dd705ed..fedf60a 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -9386,10 +9386,7 @@ resolve_transfer (gfc_code *code) if (dt && dt->dt_io_kind->value.iokind != M_INQUIRE && (ts->type == BT_DERIVED || ts->type == BT_CLASS)) { - if (ts->type == BT_DERIVED || ts->type == BT_CLASS) - derived = ts->u.derived; - else - derived = ts->u.derived->components->ts.u.derived; + derived = ts->u.derived; /* Determine when to use the formatted DTIO procedure. */ if (dt && (dt->format_expr || dt->format_label)) |