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 EFB0C385AF8E; Tue, 18 Jul 2023 18:55:03 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org EFB0C385AF8E
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1689706503;
	bh=ZCG/4tabC5WWtlFjUUtdNdePyAcdjphx/LZ1ngYXrvQ=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=QTr2QJGdOc60qr3DiyD5skN6QdtrPRvYbakyQntlfY4VZM0YNvWvvTEMHiiLmK8tm
	 uv7SXtJpgt14Z0QcwJSYQRJmkql60l8rK8ffiMJjg3Xq0KqJ12XaPk9J56UqMnZ0fH
	 Sfzr2HQGiongnibsm/MLhJ4Euv4SzPD5+gtSriZ8=
From: "kargl at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/110725] [13/14 Regression,openmp] internal compiler
 error: in expand_expr_real_1, at expr.cc:10897
Date: Tue, 18 Jul 2023 18:55:03 +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: 13.1.0
X-Bugzilla-Keywords: ice-on-valid-code, openmp
X-Bugzilla-Severity: normal
X-Bugzilla-Who: kargl 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.2
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: short_desc cc
Message-ID: <bug-110725-4-CFp7aM8gqv@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-110725-4@http.gcc.gnu.org/bugzilla/>
References: <bug-110725-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=3D110725

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|[13/14 Regression] internal |[13/14 Regression,openmp]
                   |compiler error: in          |internal compiler error: in
                   |expand_expr_real_1, at      |expand_expr_real_1, at
                   |expr.cc:10897               |expr.cc:10897
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #2 from kargl at gcc dot gnu.org ---
Reduced testcase.  The '!$omp end teams' line in subroutine initial appears=
 to
be out-of-place.


      module swim_mod

      INTEGER, PARAMETER :: N1=3D7702, N2=3D7702

      DOUBLE PRECISION, ALLOCATABLE, DIMENSION(:,:) :: U, V

      INTEGER :: M, N, MP1, NP1

!$omp declare target(U, V)
!$omp declare target(M,N,MP1,NP1)

      CONTAINS

      SUBROUTINE ALLOC
         IMPLICIT NONE
!$omp target update to(M,N,MP1,NP1)
!$omp&
         ALLOCATE(U(NP1,MP1), V(NP1,MP1))
      END SUBROUTINE

      SUBROUTINE INITAL
      INTEGER I
!$omp target
!$omp teams
!$omp distribute parallel do simd
      DO 75 I=3D1,M
         U(I+1,N+1) =3D U(I+1,1)
         V(I,1) =3D V(I,N+1)
   75 CONTINUE
!$omp end teams
      U(1,N+1) =3D U(M+1,1)
      V(M+1,1) =3D V(1,N+1)
!$omp end target
      END SUBROUTINE

      end module swim_mod=