From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
	id 8695E385F032; Fri, 17 May 2024 14:32:11 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 8695E385F032
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1715956331;
	bh=MNSFYXCxC+5WQvYTJ65v5qPTvqzkuK0HqxIa69xC0ZE=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=boy320M8qf5kdhUQq9T68vql+vT24nW3mEAMD3Y68s7ROndqvfS/NVxiphwf+wiQb
	 90guwysYF6bWgTb1V7rGOvHFpZ8z+uUf5TrSFRpHS24S0F2+KqJlChvuabsvyKj6/I
	 mndaKdSm2ard9q0Xvy8iVGseQ0Qya6tPLZG77RS8=
From: "pault at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/115070] [13/14/15 Regression] ICE using IEEE_ARITHMETIC
 in a derived type method with class, intent(out)
Date: Fri, 17 May 2024 14:32:11 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: 14.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: pault at gcc dot gnu.org
X-Bugzilla-Status: NEW
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P4
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: 13.3
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-115070-4-pN2QWhoqSr@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-115070-4@http.gcc.gnu.org/bugzilla/>
References: <bug-115070-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
List-Id: <gcc-bugs.sourceware.org>

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D115070

--- Comment #7 from Paul Thomas <pault at gcc dot gnu.org> ---
(In reply to Francois-Xavier Coudert from comment #6)
> So the var_decl in question is fpstate.0:
>=20
>  <var_decl 0x1034e1200 fpstate.0
>     type <array_type 0x1036c4b28
>         type <integer_type 0x1035003f0 c_char public unsigned QI
>             size <integer_cst 0x1034bce70 constant 8>
>             unit-size <integer_cst 0x1034bce88 constant 1>
>             align:8 warn_if_not_align:0 symtab:0 alias-set -1 canonical-t=
ype
> 0x1035003f0 precision:8 min <integer_cst 0x1034bced0 0> max <integer_cst
> 0x1034bceb8 255>
>             pointer_to_this <pointer_type 0x103503bb8>>
>         BLK
>         size <integer_cst 0x103546988 constant 264>
>         unit-size <integer_cst 0x103546aa8 constant 33>
>         align:8 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
> 0x1036c4b28
>         domain <integer_type 0x1036c4a80 type <integer_type 0x1035007e0>
>             DI
>             size <integer_cst 0x1034bcd80 constant 64>
>             unit-size <integer_cst 0x1034bcd98 constant 8>
>             align:64 warn_if_not_align:0 symtab:0 alias-set -1
> canonical-type 0x1036c4a80 precision:64 min <integer_cst 0x1034bd050 0> m=
ax
> <integer_cst 0x103546a60 32>>
>         pointer_to_this <pointer_type 0x1036c4bd0>>
>     addressable used ignored BLK s.f90:10:17 size <integer_cst 0x103546988
> 264> unit-size <integer_cst 0x103546aa8 33>
>     align:8 warn_if_not_align:0 context <function_decl 0x1036c8100 my_sub=
>>
>=20
> And if I look at the tree dump, it seems the variable is indeed not creat=
ed
> correctly:
>=20
> __attribute__((fn spec (". w ")))
> void my_sub (struct __class_my_mod_My_type_t & restrict obs)
> {
>   try
>     {
>       _gfortran_ieee_procedure_entry ((void *) &fpstate.0);
>=20
> see the missing declaration for fpstate.0. But it is created by
> gfc_create_var(), like so many other local variables in the front-end, so=
 I
> have no idea why it's disappearing.

Thanks for both the comments, Francois-Xavier. I will look to see if, someh=
ow,
the way in which the finalization is stacked on the function tree is somehow
overwriting the ieee entry call and or the decl of fpstate.0.

Paul=