From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id 75A5D3858D35; Fri, 9 Jun 2023 08:07:54 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 75A5D3858D35 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1686298074; bh=xEhGX1qcQUNSW/0CZzIQGhwcpg/KwfL4c1+xoMc+Eok=; h=From:To:Subject:Date:From; b=SGIiT0ICb+iyC0bcCr5El4VoOnHize0qGbs0u69WXMzfIkVHn51cWZipTWmZxi0aX SpZcigoiYJac3N74o6GNApWW8ChP+lipwB9wtw778qUN2suUDGtTkEYFsqny+J6Yoh xoBcYZrRN6qMq/LvkVb/h8SPbLJPIPF304ciN/ZE= 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: 0c5f47e4b800655568f7235f9a8b3b137f231dda X-Git-Newrev: 3da51066557b8a8c3ba399ba389e8ee8c99e197e Message-Id: <20230609080754.75A5D3858D35@sourceware.org> Date: Fri, 9 Jun 2023 08:07:54 +0000 (GMT) List-Id: https://gcc.gnu.org/g:3da51066557b8a8c3ba399ba389e8ee8c99e197e commit 3da51066557b8a8c3ba399ba389e8ee8c99e197e 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.