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 3d0430de5aab120a3aaf0de1f76e44d12b6beb42..0ea5135b7fc8b04a96092a68c51cb1f87d412f65 100644 (file)
--- 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;