From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id 39D73385773E; Thu, 8 Jun 2023 04:48:31 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 39D73385773E DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1686199711; bh=oH20Fy/k9O0NhnrM8uRZK7TxDUwT4DrfUx0BqRpOt2o=; h=From:To:Subject:Date:From; b=gnuM9qKuGfsYbGlMZbBiEwCIVtH3Riog6BaRQf2XWu7TVxuaC4X9tgR0K4UAuDDbz W+FZ9L41TdrC3ZdAm1pR2muabDJR4K1LsR6P66TWkDz+HfzccdkqOPh3eS1lHwdxge qEO5np2rfhhYdWzGjJmwpc4pJ5lzqusDrV1nYWm0= 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: 2d689af16894862c28b9ae3b94cf3f9c5a24909c X-Git-Newrev: 36703cc5c222544e5057b8374f0bd92f95b4c13b Message-Id: <20230608044831.39D73385773E@sourceware.org> Date: Thu, 8 Jun 2023 04:48:31 +0000 (GMT) List-Id: https://gcc.gnu.org/g:36703cc5c222544e5057b8374f0bd92f95b4c13b commit 36703cc5c222544e5057b8374f0bd92f95b4c13b 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.