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 E435D3858C53; Fri,  2 Sep 2022 20:06:27 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org E435D3858C53
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1662149187;
	bh=kGdzb18GLkhsIh3U2U2hfeUqMP6ZzZL3MXLoDCoU5Xg=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=Egi7EkcJ8+w9wofe4oNuqvKMlWVxL1/79EvP183yiq0Kt8tJNA+Jt7+nuXxE623Kz
	 ln1jFuS/1i1MUVRHNgDo9OhWGcNvgidCsy+fiXap5j7CX1CIT63tCxDNJzPoM9NH+z
	 fpIo5i36ZZ5oaqSPIHEjKnGGz+XwWnGCY7XoQx/4=
From: "mikael at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/106817] clobber ordering problem when an actual
 intent(in) argument depends on the value of an intent(out) argument
Date: Fri, 02 Sep 2022 20:06:27 +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: unknown
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: mikael 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: <bug-106817-4-JYXzjmPPDi@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-106817-4@http.gcc.gnu.org/bugzilla/>
References: <bug-106817-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=3D106817

--- Comment #3 from Mikael Morin <mikael at gcc dot gnu.org> ---
(In reply to anlauf from comment #2)
>=20
> What am I missing?

The right testcase.
Try this one.

module m
  implicit none
contains
  subroutine copy(out, in)
    integer, intent(in) :: in
    integer, intent(out) :: out
    out =3D in
  end subroutine copy
end module m

program p
  use m
  implicit none
  integer :: a
  a =3D 3
  call copy(a, a+1)
  if (a /=3D 4) stop 1
end program p=