FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix warning on new Ada testcase

Browse source 
gcc/testsuite/
	* gnat.dg/varsize4.adb (Func): Initialize Byte_Read parameter.
This commit is contained in:
Eric Botcazou 2023-11-16 22:41:53 +01:00
parent a671095c20
commit 1c1ee8097c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gcc/testsuite/gnat.dg/varsize4.adb
View file

@ -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;