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 1172E3858D35; Sun, 30 Jul 2023 19:50:16 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 1172E3858D35
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1690746616;
	bh=F4ZInutsryieW83ORqxjkdJgwXymrIPSgvjy8wQQ6cA=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=RrQrGfexNurJDico1NiorCB5f05oBZeX/cYQO7J6mGq2F/GkHtb4+b6iQfgvPL6qW
	 HMZf7SMmMxIbiWb7QS+1emZNiZE1ICCLie7ovj05nrPuJ4aLm8j1XXdwP31vFh3xgn
	 hDDSSvKydaYDVpL+SPNKRBhx4fwIJTwGN07/N4pA=
From: "mikael at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug testsuite/110419] [14 regression] new test case
 gfortran.dg/value_9.f90 in r14-2050-gd130ae8499e0c6 fails
Date: Sun, 30 Jul 2023 19:50:14 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: testsuite
X-Bugzilla-Version: 14.0
X-Bugzilla-Keywords: testsuite-fail
X-Bugzilla-Severity: normal
X-Bugzilla-Who: mikael 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: 14.0
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: attachments.created
Message-ID: <bug-110419-4-m5kCkNPNZS@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-110419-4@http.gcc.gnu.org/bugzilla/>
References: <bug-110419-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=3D110419

--- Comment #17 from Mikael Morin <mikael at gcc dot gnu.org> ---
Created attachment 55660
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=3D55660&action=3Dedit
Update function type patch

This patch changes the dummy argument declaration type.
It changes the dump as follows.

--- m32/pr110419_comment4.f90.005t.original     2023-07-05 13:05:58.7438431=
74
+0000
+++ pr110419_comment4.f90.005t.original 2023-07-30 19:31:20.880043687 +0000
@@ -1,5 +1,5 @@
 __attribute__((fn spec (". r w ")))
-void val (character(kind=3D1)[1:1] & restrict x, character(kind=3D1)[1:1] =
c,
integer(kind=3D4) _x, integer(kind=3D4) _c)
+void val (character(kind=3D1)[1:1] & restrict x, character(kind=3D1) c,
integer(kind=3D4) _x, integer(kind=3D4) _c)
 {
   {
     struct __st_parameter_dt dt_parm.0;
@@ -25,7 +25,7 @@
     _gfortran_transfer_character_write (&dt_parm.1, &c, 1);
     _gfortran_st_write_done (&dt_parm.1);
   }
-  if (c[1]{lb: 1 sz: 1} !=3D (*x)[1]{lb: 1 sz: 1})
+  if ((*x)[1]{lb: 1 sz: 1} !=3D c)
     {
       _gfortran_stop_numeric (1, 0);
     }
@@ -36,7 +36,7 @@
 __attribute__((fn spec (". ")))
 void p ()
 {
-  static void val (character(kind=3D1)[1:1] & restrict, character(kind=3D1=
)[1:1],
integer(kind=3D4), integer(kind=3D4));
+  static void val (character(kind=3D1)[1:1] & restrict, character(kind=3D1=
),
integer(kind=3D4), integer(kind=3D4));
   static integer(kind=3D4) a =3D 65;

   {

It seems to fix comment #4 (both 32 and 64 bits).=