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 018173858D35; Fri, 16 Jun 2023 17:01:37 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 018173858D35
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1686934898;
	bh=WJmKpyhrSqH/QUVPWUHIy86+/p7iA66zgPejx5Jr6Pg=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=s+6EvL0t9sNrMwYXcyLNpr3cvPGXVjsPRPqlZl0T9vgk7Jj3x2yAtTn1GHtqoFIgr
	 9I9igadMOCBX4YUWAV9FTajdrG86QUgWoetXxb8n7+S1U/03Rq4YQFAQtsmmugFWm5
	 WOXTxS4IlcpIu5uNRmhbgEbwHC1YZeWRPdGxisZk=
From: "pault at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/107900] Select type with intrinsic type inside
 associate causes ICE / Segmenation fault
Date: Fri, 16 Jun 2023 17:01:36 +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: 12.2.1
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: P3
X-Bugzilla-Assigned-To: pault at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: assigned_to attachments.created
Message-ID: <bug-107900-4-PH9eYbwD2W@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-107900-4@http.gcc.gnu.org/bugzilla/>
References: <bug-107900-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=3D107900

Paul Thomas <pault at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Assignee|unassigned at gcc dot gnu.org      |pault at gcc dot gn=
u.org

--- Comment #2 from Paul Thomas <pault at gcc dot gnu.org> ---
Created attachment 55351
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=3D55351&action=3Dedit
Fix for this PR

Testcase:

! { dg-do run }
!
! Contributed by Karl Kaiser  <kaiserkarl31@yahoo.com>
!
program test

   class(*), pointer :: ptr1, ptr2(:)
   integer, target :: i =3D 42
   integer :: check =3D 0
!   ptr1 =3D> NULL()            !This would fix the problem
   associate (c =3D> ptr1)
      block
        select type (d =3D> c)
           type is (integer)
              stop 1
           class default
              check =3D 1
        end select
      end block
   end associate
! Now do the same with the array version
!   ptr2 =3D> NULL()            !This did not fix the problem
   associate (c =3D> ptr2)
      block
        select type (d =3D> c)
           type is (integer)
              stop 2
           class default
              check =3D check + 10
        end select
      end block
   end associate
   if (check .ne. 11) stop 3
end program test

Regards

Paul=