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 C84B03835796; Sat, 19 Nov 2022 22:14:10 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org C84B03835796
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1668896050;
	bh=wq2OywuUIOEAsD9heHLnVn04pF45GvxBJezkuzPY9X0=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=nuP+HSXm/lNl5AMpelUDUowAwUKRSGRllTC9E31DoGcKf41vrVDHgRcYlSC0vCpLB
	 /0+ithsK8JZdxhh875g8FERWblmNuFdNkmL4ovXVPs7xbtal7Veqt+oY+BizNsuj1v
	 RJ/jQAHjoQJh9Xf7C4Lp0Ol9llRDovinNEsIfFt8=
From: "anlauf at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/107659] C procedure with no global scope is seen as
 global
Date: Sat, 19 Nov 2022 22:14:10 +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.3.0
X-Bugzilla-Keywords: rejects-valid
X-Bugzilla-Severity: normal
X-Bugzilla-Who: anlauf 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: 
Message-ID: <bug-107659-4-L0gLAZLPMe@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-107659-4@http.gcc.gnu.org/bugzilla/>
References: <bug-107659-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=3D107659

--- Comment #2 from anlauf at gcc dot gnu.org ---
I was trying a fix that regressed on binding_label_tests_34.f90,
but looking into that it appears that this test is not correct,
as well as the comment at the top of it.  The fix for pr94737 was
likely incomplete.

F2018, 18.9.2, paragraph 2 actually says:

! (2) If a variable or common block has the BIND attribute with the NAME=3D
! specifier and the value of its expression, after discarding leading and
! trailing blanks, has nonzero length, the variable or common block has
! this as its binding label. The case of letters in the binding label is
! significant. ...

Since NAG and Intel accepts the testcase, it will need updating...=