From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2071) id 580503858D38; Thu, 22 Sep 2022 17:40:17 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 580503858D38 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1663868417; bh=ddOUONa2oICUdqtg7pSCWoPb/aF67UyHxbPvf+KoN1k=; h=From:To:Subject:Date:From; b=tB4F+VljNkkQBm39Vrp1SHY++S3JfJ1FKY/Ykl2e5C4OjVHAtYtqJQdcaRHXqq2ZO 6Q4NCAGkVnnXJAmvqBG3+UMNdMc00HesCx/Z88fXBj1rYO/EFAwr0SUTpunVJ/BaIx WoqJdL45L9cNY1rCpcMTxjpMhs6vPV2vgyyXtEWg= 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 r13-2781] Fortran: fix ICE in generate_coarray_sym_init [PR82868] X-Act-Checkin: gcc X-Git-Author: Harald Anlauf X-Git-Refname: refs/heads/master X-Git-Oldrev: 3ad3f53bb3ce8b4d24f370528a5ed0b1ed34b883 X-Git-Newrev: bc71318a91286b5f00e88f07aab818ac82510692 Message-Id: <20220922174017.580503858D38@sourceware.org> Date: Thu, 22 Sep 2022 17:40:17 +0000 (GMT) List-Id: https://gcc.gnu.org/g:bc71318a91286b5f00e88f07aab818ac82510692 commit r13-2781-gbc71318a91286b5f00e88f07aab818ac82510692 Author: Harald Anlauf Date: Wed Sep 21 19:55:30 2022 +0200 Fortran: fix ICE in generate_coarray_sym_init [PR82868] gcc/fortran/ChangeLog: PR fortran/82868 * trans-decl.cc (generate_coarray_sym_init): Skip symbol if attr.associate_var. gcc/testsuite/ChangeLog: PR fortran/82868 * gfortran.dg/associate_26a.f90: New test. Diff: --- gcc/fortran/trans-decl.cc | 1 + gcc/testsuite/gfortran.dg/associate_26a.f90 | 15 +++++++++++++++ 2 files changed, 16 insertions(+) diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index 908a4c6d42e..5d16d640322 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -5529,6 +5529,7 @@ generate_coarray_sym_init (gfc_symbol *sym) if (sym->attr.dummy || sym->attr.allocatable || !sym->attr.codimension || sym->attr.use_assoc || !sym->attr.referenced + || sym->attr.associate_var || sym->attr.select_type_temporary) return; diff --git a/gcc/testsuite/gfortran.dg/associate_26a.f90 b/gcc/testsuite/gfortran.dg/associate_26a.f90 new file mode 100644 index 00000000000..85aebebd4d8 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/associate_26a.f90 @@ -0,0 +1,15 @@ +! { dg-do compile } +! { dg-options "-fcoarray=lib" } +! +! Test the fix for PR78152 and the followup in PR82868 +! +! Contributed by +! +program co_assoc + implicit none + integer, parameter :: p = 5 + real, allocatable :: a(:,:)[:,:] + allocate (a(p,p)[2,*]) + associate (i => a(1:p, 1:p)) + end associate +end program co_assoc