diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-02-19 18:21:45 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-02-19 18:21:45 +0000 |
| commit | d48fc34a45248f83f3d00b1ba7d8ec46854702c8 (patch) | |
| tree | 8911af3884db63e3c5cc087dcd54215f4f0be8d1 /gcc/fortran/frontend-passes.c | |
| parent | 87e8aa3bd9787cf64314e41ee5b5261b389ad060 (diff) | |
| download | gcc-d48fc34a45248f83f3d00b1ba7d8ec46854702c8.zip gcc-d48fc34a45248f83f3d00b1ba7d8ec46854702c8.tar.gz gcc-d48fc34a45248f83f3d00b1ba7d8ec46854702c8.tar.bz2 | |
re PR fortran/35339 (Improve translation of implied do loop in transfer)
2018-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/35339
* frontend-passes.c (traverse_io_block): Remove workaround for
PR 80945.
2018-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/35339
* gfortran.dg/implied_do_io_4.f90: New test.
From-SVN: r257814
Diffstat (limited to 'gcc/fortran/frontend-passes.c')
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index d07d142..1ffd27d 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -1162,14 +1162,7 @@ traverse_io_block (gfc_code *code, bool *has_reached, gfc_code *prev) gcc_assert (curr->op == EXEC_TRANSFER); - /* FIXME: Workaround for PR 80945 - array slices with deferred character - lenghts do not work. Remove this section when the PR is fixed. */ e = curr->expr1; - if (e->expr_type == EXPR_VARIABLE && e->ts.type == BT_CHARACTER - && e->ts.deferred) - return false; - /* End of section to be removed. */ - ref = e->ref; if (!ref || ref->type != REF_ARRAY || ref->u.ar.codimen != 0 || ref->next) return false; |