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 BA3C23858296; Mon, 14 Nov 2022 20:21:50 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org BA3C23858296
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1668457310;
	bh=HZC0XtdHOM0g56/tgZnw9nQr16Xe4Ajf4dllgLFDlkA=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=nPLUkgX8lNVzwuhWLcMoJZ5kdWWFHlDO1ouuyPEtWwwhNtDiDCux+eHaBjmYoVNws
	 1f9ChTI7uibz8U5i88UEMht/53VB1RdHoo6l99i5ZzREZW3i5dA+jlDl2to0HBhEfL
	 WCDc7A0yFsF0+uNw4MAsjV5S0hq4THAfY8FDV158=
From: "gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/107576] [10/11/12/13 Regression] ICE in
 gfc_conv_procedure_call, at fortran/trans-expr.cc:6193
Date: Mon, 14 Nov 2022 20:21:50 +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.0
X-Bugzilla-Keywords: accepts-invalid, ice-on-invalid-code
X-Bugzilla-Severity: normal
X-Bugzilla-Who: gscfq@t-online.de
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: 10.5
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-107576-4-zzY0toV5M2@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-107576-4@http.gcc.gnu.org/bugzilla/>
References: <bug-107576-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=3D107576

--- Comment #7 from G. Steinmetz <gscfq@t-online.de> ---

Yes, call s(z) is valid in z1, but is necessary to trigger
the ICE somehow with -std=3Dlegacy and null().

Yes, 15.4.2.2(3) was it, explicit interface of the callee with
all the characteristics of that procedure(subr/func) and dummies.

Two things are mixed here.. The following is e.g. handled correctly,
with a different error, but rejected without an explicit interface:

$ cat z3.f90
program p
   call s(null())
end

$ cat z3c.f90
program p
   call s(null())
contains
   subroutine s(x)
      integer, pointer :: x
   end
end

$ cat z3i.f90
program p
   interface
      subroutine s(x)
         integer, pointer :: x
      end
   end interface
   call s(null())
end

$ gfortran -c z3c.f90
$ gfortran -c z3i.f90
$ gfortran -c z3.f90
z3.f90:2:10:

    2 |    call s(null())
      |          1
Error: MOLD argument to NULL required at (1)=