From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id E73553858024; Thu, 8 Jun 2023 10:59:47 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org E73553858024 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1686221987; bh=wkJyKa4d6Z3xdrLAPIlh04KF7DEDmSqBLYZwcJjI+xQ=; h=From:To:Subject:Date:From; b=PBqUkZWVShE+Rhm3tvhzXJ9960aaZFKsYL2/GI0CHBD8W35CK7CH8hV7KFTDokAfy r7Sw6FHdVYgcu43ajCBeC4P2kVJDAekIgs/ecgJgiNew8rwQXBpw9lsu8fuky+z7/l bnzz2Wr+f/RdIB592zkLJB8w5SqyRrMx9t78pBoU= 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: 4f1705e04c84b7524ac1bc129eb4df0b399aaea1 X-Git-Newrev: f98ade3c026f7df36186a85f455d22fe69631d38 Message-Id: <20230608105947.E73553858024@sourceware.org> Date: Thu, 8 Jun 2023 10:59:47 +0000 (GMT) List-Id: https://gcc.gnu.org/g:f98ade3c026f7df36186a85f455d22fe69631d38 commit f98ade3c026f7df36186a85f455d22fe69631d38 Author: Eric Botcazou Date: Tue Aug 9 10:44:19 2022 -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.