From 2c4f9ec16214b53c53c46dd3a0a22f18a268bc28 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Thu, 11 Oct 2018 21:37:28 +0200 Subject: revert: re PR fortran/83522 (ICE on allocatable string reference, string(:)(:)) 2018-10-11 Tobias Burnus Revert: 2018-10-09 Tobias Burnus PR fortran/83522 * resolve.c (resolve_ref): Reject nonscalar substring references. 2018-10-11 Tobias Burnus Revert: 2018-10-09 Tobias Burnus PR fortran/83522 * gfortran.dg/actual_array_substr_1.f90: Add dg-error, change to dg-do compile. * gfortran.dg/actual_array_substr_2.f90: Ditto. * gfortran.dg/array_initializer_1.f90: Use array element not size-one section. * gfortran.dg/array_substring.f90: New. From-SVN: r265059 --- gcc/fortran/ChangeLog | 9 +++++++++ gcc/fortran/resolve.c | 7 ------- 2 files changed, 9 insertions(+), 7 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0a7e5f5..ac2bf3a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,12 @@ +2018-10-11 Tobias Burnus + + Revert: + 2018-10-09 Tobias Burnus + + PR fortran/83522 + * resolve.c (resolve_ref): Reject nonscalar + substring references. + 2018-10-09 David Malcolm * cpp.c (gfc_cpp_init_0): Update for renamings. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 4ec881e..87e65df 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5129,13 +5129,6 @@ resolve_ref (gfc_expr *expr) break; case REF_SUBSTRING: - /* F2008, R610 alias F2018, R908. */ - if (current_part_dimension || seen_part_dimension) - { - gfc_error ("Substring reference of nonscalar not permitted at %L", - &expr->where); - return false; - } break; } -- cgit v1.1