From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 241073836C49; Mon, 1 Feb 2021 11:51:33 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 241073836C49 From: "burnus at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: =?UTF-8?B?W0J1ZyBmb3J0cmFuLzk4OTEzXSBDcmVhdGUtdGVtcG9yYXJ5IGRp?= =?UTF-8?B?ZmZlcmVuY2UgY29hcnJheS9ub25jb2FycmF5IOKAkyBpbnZhbGlkIGNvZGUg?= =?UTF-8?B?ZHVlIHRvIG1pc3NpbmcgdGVtcG9yYXJ5?= Date: Mon, 01 Feb 2021 11:51:33 +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: 11.0 X-Bugzilla-Keywords: wrong-code X-Bugzilla-Severity: normal X-Bugzilla-Who: burnus at gcc dot gnu.org 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: Message-ID: In-Reply-To: References: 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 List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 01 Feb 2021 11:51:33 -0000 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D98913 --- Comment #1 from Tobias Burnus --- (In reply to Tobias Burnus from comment #0) > D.3991 =3D (*(real(kind=3D8)[0:] * restrict) bb.data)[(bb.offset + > (integer(kind=3D8)) j * bb.dim[1].stride) + (integer(kind=3D8)) k]; Missed that this one is a FP number not a pointer =E2=80=93 hence, the issu= e I have does not exist. (Probably works =E2=80=93 I have not verified whether that is always the ca= se and I hope it does.) * * * The difference between coarray and not occurs elsewhere: dependency.c's gfc_dep_resolver has: case REF_ARRAY: /* For now, treat all coarrays as dangerous. */ if (lref->u.ar.codimen || rref->u.ar.codimen) return 1; Alternative would be to check for flag_coarray =3D=3D GFC_FCOARRAY_SINGLE || ref->u.ar.dimen_type[ref->u.ar.dimen] =3D=3D DIMEN_THIS_IMAGE) or something like that.=