git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Steven G. Kargl 2018-12-17 02:19:58 +00:00
parent 25f51c73fe
commit fb2974dcf5
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
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> 2018-12-16 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88116 PR fortran/88116

5
gcc/fortran/resolve.c
View File

@ -9386,10 +9386,7 @@ resolve_transfer (gfc_code *code)
if (dt && dt->dt_io_kind->value.iokind != M_INQUIRE if (dt && dt->dt_io_kind->value.iokind != M_INQUIRE
&& (ts->type == BT_DERIVED || ts->type == BT_CLASS)) && (ts->type == BT_DERIVED || ts->type == BT_CLASS))
{ {
if (ts->type == BT_DERIVED || ts->type == BT_CLASS) derived = ts->u.derived;
derived = ts->u.derived;
else
derived = ts->u.derived->components->ts.u.derived;
/* Determine when to use the formatted DTIO procedure. */ /* Determine when to use the formatted DTIO procedure. */
if (dt && (dt->format_expr || dt->format_label)) if (dt && (dt->format_expr || dt->format_label))