[gcc(refs/users/aoliva/heads/testme)] Adjust gnat.dg testsuite after fix for V509-015.

[Alexandre Oliva]

https://gcc.gnu.org/g:c42d584dc2dbc6899143e6ab128229f4b6720e9c

commit c42d584dc2dbc6899143e6ab128229f4b6720e9c
Author: Eric Botcazou <ebotcazou@adacore.com>
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.