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 C39543858D1E; Thu,  7 Sep 2023 07:53:57 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org C39543858D1E
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1694073237;
	bh=ZkEAdFDm9g8eftqCI76iRRdmC76N59ff9LW/m80x8dI=;
	h=From:To:Subject:Date:From;
	b=lL4xNRwoWVCsICvTbdVGz6X/bby4nnVfUwe72nDl9a/wAA+XPFqqi7zsB3jbE7EJl
	 7NOMXOgJozJJAFqxorLLKzN0VisXv3dq3aDSDsaJ6MXta6SgB3H2Q2fCjko39S+rI6
	 dlelocQW5BE4w1UkzG7+Qvmz6XCQY7Sqh3q+ozZw=
From: "alexandre.poux at coria dot fr" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/111321] New: Segmentation fault with associate
 construct
Date: Thu, 07 Sep 2023 07:53:57 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: new
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: 13.2.1
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: alexandre.poux at coria dot fr
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status
 bug_severity priority component assigned_to reporter target_milestone
Message-ID: <bug-111321-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=3D111321

            Bug ID: 111321
           Summary: Segmentation fault with associate construct
           Product: gcc
           Version: 13.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: alexandre.poux at coria dot fr
  Target Milestone: ---

The following program triggers a segmentation fault when compiling

```fortran
program buggy
    implicit none
    double precision, dimension(1) :: array
    integer :: i

    associate (assoc =3D> array)

        assoc(1) =3D 1.5
        assoc =3D assoc*2

    end associate
contains

end program buggy
```

```
#> gfortran bug.f90
f951: internal compiler error: Segmentation fault
0x1a0e9c4 internal_error(char const*, ...)
        ???:0
0x77d375 gfc_expression_rank(gfc_expr*)
        ???:0
0x7392fc gfc_match_expr(gfc_expr**)
        ???:0
0x7397a8 gfc_match(char const*, ...)
        ???:0
0x739f59 gfc_match_assignment()
        ???:0
0x793a70 gfc_parse_file()
        ???:0
```

I'm using the latest version of gfortran from the archlinux repository
core/gcc-fortran 13.2.1-3=