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 2D6F53857024; Fri, 17 Jul 2020 11:02:59 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 2D6F53857024
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
 s=default; t=1594983779;
 bh=9KLlHy0yIKEx7MgV/7in4ZCB+Zymrg04ofRRN8eTOKU=;
 h=From:To:Subject:Date:In-Reply-To:References:From;
 b=xNeePfFntBEW8ovxw0gKmTUmxDAewz8Hc07uUIOa9kTRDX0ThqAkz9LMq+1bthNZr
 oJahAJt0lEE5DWmWVIp5dMYIp04GUYtXw+gOlIUjl81lPiSxaJWdKe/nGNlf+rCSuX
 ZwnL4/pivkuYIZWRiVLEeb77xOiqPE0zzGik+Gzg=
From: "burnus at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/93553] ICE in scan_omp_1_op, at omp-low.c:3485
Date: Fri, 17 Jul 2020 11:02:58 +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: 10.0
X-Bugzilla-Keywords: ice-on-valid-code, openmp
X-Bugzilla-Severity: normal
X-Bugzilla-Who: burnus at gcc dot gnu.org
X-Bugzilla-Status: NEW
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: cc
Message-ID: <bug-93553-4-JR659Lv2Jn@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-93553-4@http.gcc.gnu.org/bugzilla/>
References: <bug-93553-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
X-BeenThere: gcc-bugs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-bugs mailing list <gcc-bugs.gcc.gnu.org>
List-Unsubscribe: <http://gcc.gnu.org/mailman/options/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-request@gcc.gnu.org?subject=help>
List-Subscribe: <http://gcc.gnu.org/mailman/listinfo/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Fri, 17 Jul 2020 11:02:59 -0000

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu.org

--- Comment #6 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Slightly simplified one can use a scalar 'c' instead of an array. One gets
(-fdump-tree-gimple):

  #pragma omp parallel reduction(+:x) shared(c)
    {
      integer(kind=3D8) D.3933;
      integer(kind=3D8) D.3934;

      #pragma omp for nowait private(i)
      for (i =3D 1; i <=3D 8; i =3D i + 1)
          {
            D.3933 =3D (integer(kind=3D8)) i;
            D.3934 =3D D.3933 + -1;
            (*x)[D.3934] =3D c;

During omp-lowering, one has:
=E2=80=A6
D.3924 =3D S.0 + -1;
D.3940 =3D x;
(*D.3940)[D.3924] =3D 0;

The "D.3940 =3D x;" is processed and the "D.3940" ends up as "tp" argument =
to
"scan_omp_1_op" which calls then in turn:
  tree repl =3D remap_decl (t, &ctx->cb)
The latter then calls
  omp_copy_decl
and returns error_mark_node =E2=86=92 this gives then the gcc_assert in sca=
n_omp1_op.

By contrast, "S.0" appears in ctx->cb->decl_map and, hence, omp_copy_decl is
not called for it.=