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: releases/gcc-13.3.0~705
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cc67ee72fdd844b4d916dcd29e82f678ed103658;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;