From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2071) id 7AE503858D33; Tue, 7 Feb 2023 18:21:59 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 7AE503858D33 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1675794119; bh=AI69wSy4wDo243OzL79G+t4t5wuXOV+M6Q4eZi/rsXQ=; h=From:To:Subject:Date:From; b=JthgLyK2PiP7qft2OXRD+5nkyWcyrtrAyWWLURY1kQATDonA+Y+X3IDoUBT4UTfA1 rPV7Ki4uGLS+Vm2PlBwQkdA6fQAzSAljney8lnEUceRqISbI8MmkG7jDRj0wyCfRng lRDsPnv3+yQ4pP/QNMiYL1X8ZNcSyGnuOJeYlKGQ= 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-5732] Fortran: ASSOCIATE variables should not be TREE_STATIC [PR95107] X-Act-Checkin: gcc X-Git-Author: Harald Anlauf X-Git-Refname: refs/heads/master X-Git-Oldrev: 8bc87173003a879e9231cad66d7befa9ca7461f6 X-Git-Newrev: c36f3da534e7f411c5bc48c5b6b660e238167480 Message-Id: <20230207182159.7AE503858D33@sourceware.org> Date: Tue, 7 Feb 2023 18:21:59 +0000 (GMT) List-Id: https://gcc.gnu.org/g:c36f3da534e7f411c5bc48c5b6b660e238167480 commit r13-5732-gc36f3da534e7f411c5bc48c5b6b660e238167480 Author: Harald Anlauf Date: Mon Feb 6 20:59:51 2023 +0100 Fortran: ASSOCIATE variables should not be TREE_STATIC [PR95107] gcc/fortran/ChangeLog: PR fortran/95107 * trans-decl.cc (gfc_finish_var_decl): With -fno-automatic, do not make ASSOCIATE variables TREE_STATIC. gcc/testsuite/ChangeLog: PR fortran/95107 * gfortran.dg/save_7.f90: New test. Diff: --- gcc/fortran/trans-decl.cc | 1 + gcc/testsuite/gfortran.dg/save_7.f90 | 17 +++++++++++++++++ 2 files changed, 18 insertions(+) diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index 7a077801919..f7a7ff607cd 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -742,6 +742,7 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) /* Keep variables larger than max-stack-var-size off stack. */ if (!(sym->ns->proc_name && sym->ns->proc_name->attr.recursive) && !sym->attr.automatic + && !sym->attr.associate_var && sym->attr.save != SAVE_EXPLICIT && sym->attr.save != SAVE_IMPLICIT && INTEGER_CST_P (DECL_SIZE_UNIT (decl)) diff --git a/gcc/testsuite/gfortran.dg/save_7.f90 b/gcc/testsuite/gfortran.dg/save_7.f90 new file mode 100644 index 00000000000..dfbef12bec0 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/save_7.f90 @@ -0,0 +1,17 @@ +! { dg-do compile } +! { dg-options "-O2 -fno-automatic" } +! +! PR fortran/95107 - do not make associate variables TREE_STATIC +! Contributed by G.Steinmetz + +program p + type t + real, pointer :: a => null() + end type + type t2 + type(t) :: b(1) + end type + type(t2), save :: x + associate (y => x%b) + end associate +end