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 B4F753858D20; Fri, 14 Apr 2023 13:03:43 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org B4F753858D20
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1681477423;
	bh=WckvoBgftEl16EItmuk416ovjC8bROfuMxHJA/+QA7Q=;
	h=From:To:Subject:Date:From;
	b=OAv76gjd2bgtRNtK8cJk/AXfuISrN4UC9ONDiRYLhBPZOPXbPukvL+MuzwO1j30Nj
	 h5SNDGLazrluDJu6EMAKC6rz8E18AkgzhV/KtCsWAxtNhHzRBtONzCMHoU1u3Z+f7U
	 Tyr/0S4TlRiUSQB8F3VztAMeH83N4/RG26tHYs0g=
From: "sebastien at debian dot org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/109512] New: accepts implicit dummy procedure even with
 "implicit none (external)"
Date: Fri, 14 Apr 2023 13:03:43 +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: 12.2.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: sebastien at debian dot 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: bug_id short_desc product version bug_status
 bug_severity priority component assigned_to reporter target_milestone
Message-ID: <bug-109512-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=3D109512

            Bug ID: 109512
           Summary: accepts implicit dummy procedure even with "implicit
                    none (external)"
           Product: gcc
           Version: 12.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: sebastien at debian dot org
  Target Milestone: ---

gfortran compiles the following source without error:

subroutine foo(bar)
  implicit none (external)
  call bar(1)
end subroutine foo

However my understanding is that it should reject it, because "bar" is an
implicit dummy procedure, which is forbidden by "implicit none (external)".

Note that this is not the same issue as Bug 100972, which was not about dum=
my
procedures.=