From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id 193353858438; Thu, 8 Jun 2023 10:43:59 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 193353858438 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1686221039; bh=hueBsSXf7C1kYfezggLgLwv0ai0Pk/3HyfDoAIYcavI=; h=From:To:Subject:Date:From; b=NXwF3Xm300i/ucvpViGDqCozmFRc+TuIeF3aV9ZfJT6ilUmTpm+moGk3s8V03jayG BdAr/XeTI4lX69JDxBsxm3DDaxZVyhjLUtqkER19LMnfwIs1o9I53cJYp4rrk34ht+ w7mUXASxeH6bv5VX8Bf178jMylAZvxB8QOK74Xpw= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Alexandre Oliva 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 X-Git-Refname: refs/users/aoliva/heads/testme X-Git-Oldrev: b42b8e907c4399dc774863065da272b986103c4f X-Git-Newrev: 373fe8b99dca6d5d76218c861c524f8b817d4ed0 Message-Id: <20230608104359.193353858438@sourceware.org> Date: Thu, 8 Jun 2023 10:43:59 +0000 (GMT) List-Id: https://gcc.gnu.org/g:373fe8b99dca6d5d76218c861c524f8b817d4ed0 commit 373fe8b99dca6d5d76218c861c524f8b817d4ed0 Author: Eric Botcazou 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.