From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 16 Nov 2023 21:41:53 +0000 (+0100)
Subject: Fix warning on new Ada testcase
X-Git-Tag: basepoints/gcc-15~4598
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1c1ee8097c3d96c74107a317f68b0ad40cf9207b;p=thirdparty%2Fgcc.git

Fix warning on new Ada testcase

gcc/testsuite/
	* gnat.dg/varsize4.adb (Func): Initialize Byte_Read parameter.
---

diff --git a/gcc/testsuite/gnat.dg/varsize4.adb b/gcc/testsuite/gnat.dg/varsize4.adb
index 3d0430de5aab..0ea5135b7fc8 100644
--- a/gcc/testsuite/gnat.dg/varsize4.adb
+++ b/gcc/testsuite/gnat.dg/varsize4.adb
@@ -2,9 +2,10 @@
 
 package body Varsize4 is
 
-   function Func (bytes_read : out Natural) return Arr is
+   function Func (Bytes_Read : out Natural) return Arr is
       Ret : Arr := (others => False);
    begin
+      Bytes_Read := 0;
       return Ret;
    end;