From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id 8D1B33857C44; Fri, 9 Jun 2023 06:17:53 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 8D1B33857C44 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1686291473; bh=8AakTi0wJSAJocPy3Meb/x1cMkivfSgBPYOPBTBq6N0=; h=From:To:Subject:Date:From; b=WQQqtr/bQbpTJUT/23XVvwMfzqrOTTuDUU+amV1gwM6KpEP2PrtZs4feq+4W4eIQd 5BiOYp2s7t/uPgSjkw9cn2n0nOMVtLeolWknh3ZC0OBgVsmuAGQlVRCvpnNb6iqQXG GGn3/YGNL6CBd8L2dXwwDdEYtoeul8u9smDQRtrw= 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: 8e8d5ebcd6c0a2c62425377ab384c1c362c8f759 X-Git-Newrev: 6544d61b57bb86b00e50141a7aef2916b18fdd52 Message-Id: <20230609061753.8D1B33857C44@sourceware.org> Date: Fri, 9 Jun 2023 06:17:53 +0000 (GMT) List-Id: https://gcc.gnu.org/g:6544d61b57bb86b00e50141a7aef2916b18fdd52 commit 6544d61b57bb86b00e50141a7aef2916b18fdd52 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.