From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2071) id 9FE4C3861C40; Sat, 4 Feb 2023 15:43:32 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 9FE4C3861C40 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1675525412; bh=Cy9sRmJM2xgggcEfRA8EMRMkhvC5nZxZ9N+LW2XZ/vY=; h=From:To:Subject:Date:From; b=ywXUjEBQMIRnLiLQ8jMKzI5nkjquncvee2dasMZrjPoJpO0kspTi/vyVFyCzyuJUV 3xrKod3rBHv5L/9aA90g+5uoZPz4Uzh/ZGQwNdDUXOiphxzxKGNL3srhZQ+aXzZTQB 2nAKOeGAIq1+SCa2XLq/CMXIU+tJ4w2P2iLTcmCI= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Harald Anlauf To: gcc-cvs@gcc.gnu.org Subject: [gcc r11-10505] Fortran: error recovery for bad initializers of implied-shape arrays [PR106209] X-Act-Checkin: gcc X-Git-Author: Harald Anlauf X-Git-Refname: refs/heads/releases/gcc-11 X-Git-Oldrev: 76a6f8470c8c786b271cb0d897de891fe0d4043f X-Git-Newrev: 8e58d94ac56127ebca3a893284455032a707d948 Message-Id: <20230204154332.9FE4C3861C40@sourceware.org> Date: Sat, 4 Feb 2023 15:43:32 +0000 (GMT) List-Id: https://gcc.gnu.org/g:8e58d94ac56127ebca3a893284455032a707d948 commit r11-10505-g8e58d94ac56127ebca3a893284455032a707d948 Author: Harald Anlauf Date: Thu Jul 14 22:24:55 2022 +0200 Fortran: error recovery for bad initializers of implied-shape arrays [PR106209] gcc/fortran/ChangeLog: PR fortran/106209 * decl.c (add_init_expr_to_sym): Handle bad initializers for implied-shape arrays. gcc/testsuite/ChangeLog: PR fortran/106209 * gfortran.dg/pr106209.f90: New test. Co-authored-by: Steven G. Kargl (cherry picked from commit 748f8a8b145dde59c7b63aa68b5a59515b7efc49) Diff: --- gcc/fortran/decl.c | 15 +++++++++++++-- gcc/testsuite/gfortran.dg/pr106209.f90 | 9 +++++++++ 2 files changed, 22 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index c25b53f9772..6eb39d36196 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2050,10 +2050,21 @@ add_init_expr_to_sym (const char *name, gfc_expr **initp, locus *var_locus) /* The shape may be NULL for EXPR_ARRAY, set it. */ if (init->shape == NULL) { - gcc_assert (init->expr_type == EXPR_ARRAY); + if (init->expr_type != EXPR_ARRAY) + { + gfc_error ("Bad shape of initializer at %L", &init->where); + return false; + } + init->shape = gfc_get_shape (1); if (!gfc_array_size (init, &init->shape[0])) - gfc_internal_error ("gfc_array_size failed"); + { + gfc_error ("Cannot determine shape of initializer at %L", + &init->where); + free (init->shape); + init->shape = NULL; + return false; + } } for (dim = 0; dim < sym->as->rank; ++dim) diff --git a/gcc/testsuite/gfortran.dg/pr106209.f90 b/gcc/testsuite/gfortran.dg/pr106209.f90 new file mode 100644 index 00000000000..44f9233ec2f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr106209.f90 @@ -0,0 +1,9 @@ +! { dg-do compile } +! PR fortran/106209 - ICE in add_init_expr_to_sym +! Contributed by G.Steinmetz + +program p + integer, parameter :: a(:) = 0 ! { dg-error "of deferred shape" } + integer, parameter :: b(*) = a ! { dg-error "Bad shape of initializer" } + integer, parameter :: c(*) = [a] ! { dg-error "Cannot determine shape" } +end