From d48fc34a45248f83f3d00b1ba7d8ec46854702c8 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 19 Feb 2018 18:21:45 +0000 Subject: re PR fortran/35339 (Improve translation of implied do loop in transfer) 2018-02-19 Thomas Koenig PR fortran/35339 * frontend-passes.c (traverse_io_block): Remove workaround for PR 80945. 2018-02-19 Thomas Koenig PR fortran/35339 * gfortran.dg/implied_do_io_4.f90: New test. From-SVN: r257814 --- gcc/fortran/frontend-passes.c | 7 ------- 1 file changed, 7 deletions(-) (limited to 'gcc/fortran/frontend-passes.c') 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; -- cgit v1.1