From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <aoliva@sourceware.org>
Received: by sourceware.org (Postfix, from userid 2140)
	id 6CF81385702B; Fri,  9 Jun 2023 06:26:01 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 6CF81385702B
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1686291961;
	bh=ZgBVjuSc/oHUWOY/K3ZqaL++OLJdVFbQSJUOTJWnKXE=;
	h=From:To:Subject:Date:From;
	b=arS098Omls9lZfaag7FCzEGdTtU4DAT/JL4FmArdMydLC34qgVQtGF6PjBMxGfrr+
	 OSsVbYfga6dnSlRp7LUoL9RlSLnbiKjkN2eNuiWPeZRP77Sd53KLxfl0cg6C08cZmd
	 0JeFeV0dyVXWZH2+kPhNXV5pnBxBlE1dFMslMGjk=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
From: Alexandre Oliva <aoliva@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc(refs/users/aoliva/heads/testme)] Adjust gnat.dg testsuite after
 fix for V509-015.
X-Act-Checkin: gcc
X-Git-Author: Eric Botcazou <ebotcazou@adacore.com>
X-Git-Refname: refs/users/aoliva/heads/testme
X-Git-Oldrev: 2ab1eb4926791c9bda1e39a8489f9706fb124523
X-Git-Newrev: c42d584dc2dbc6899143e6ab128229f4b6720e9c
Message-Id: <20230609062601.6CF81385702B@sourceware.org>
Date: Fri,  9 Jun 2023 06:26:01 +0000 (GMT)
List-Id: <gcc-cvs.sourceware.org>

https://gcc.gnu.org/g:c42d584dc2dbc6899143e6ab128229f4b6720e9c

commit c42d584dc2dbc6899143e6ab128229f4b6720e9c
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Thu Jun 8 01:35:54 2023 -0300

    Adjust gnat.dg testsuite after fix for V509-015.

Diff:
---
 gcc/testsuite/gnat.dg/strub_intf.adb  | 2 +-
 gcc/testsuite/gnat.dg/strub_intf1.adb | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/testsuite/gnat.dg/strub_intf.adb b/gcc/testsuite/gnat.dg/strub_intf.adb
index 728b85572b7..8f0212a7586 100644
--- a/gcc/testsuite/gnat.dg/strub_intf.adb
+++ b/gcc/testsuite/gnat.dg/strub_intf.adb
@@ -59,7 +59,7 @@ procedure Strub_Intf is
       overriding
       procedure P (I : Integer; X : B) is
       begin
-	 P (I, A (X));
+	 null;
       end;
       
       overriding
diff --git a/gcc/testsuite/gnat.dg/strub_intf1.adb b/gcc/testsuite/gnat.dg/strub_intf1.adb
index aa68fcd2c0b..bf77321cef7 100644
--- a/gcc/testsuite/gnat.dg/strub_intf1.adb
+++ b/gcc/testsuite/gnat.dg/strub_intf1.adb
@@ -42,7 +42,7 @@ procedure Strub_Intf1 is
       overriding
       procedure P (I : Integer; X : B) is
       begin
-	 P (I, A (X));
+	 null;
       end;
       
       overriding
@@ -79,7 +79,7 @@ end Strub_Intf1;
 
 --  Count the strub-at-calls non-dispatching calls 
 --  (+ 2 each, for the matching prototypes)
---  { dg-final { scan-ipa-dump-times "foo\.p \[(\]\[^\n\]*watermark" 3 "strub" } }
+--  { dg-final { scan-ipa-dump-times "foo\.p \[(\]\[^\n\]*watermark" 2 "strub" } }
 --  { dg-final { scan-ipa-dump-times "foo\.f \[(\]\[^\n\]*watermark" 4 "strub" } }
 
 --  Count the strub-at-calls dispatching calls.