diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-11-16 22:41:53 +0100 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2023-11-16 22:45:10 +0100 |
| commit | 1c1ee8097c3d96c74107a317f68b0ad40cf9207b (patch) | |
| tree | 13374beddb95283d850409df53786a671f5ee2dd /gcc/testsuite/gnat.dg | |
| parent | a671095c208c7cf5eb934b6a31bd9fb6f6640a6b (diff) | |
| download | gcc-1c1ee8097c3d96c74107a317f68b0ad40cf9207b.zip gcc-1c1ee8097c3d96c74107a317f68b0ad40cf9207b.tar.gz gcc-1c1ee8097c3d96c74107a317f68b0ad40cf9207b.tar.bz2 | |
Fix warning on new Ada testcase
gcc/testsuite/
* gnat.dg/varsize4.adb (Func): Initialize Byte_Read parameter.
Diffstat (limited to 'gcc/testsuite/gnat.dg')
| -rw-r--r-- | gcc/testsuite/gnat.dg/varsize4.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/testsuite/gnat.dg/varsize4.adb b/gcc/testsuite/gnat.dg/varsize4.adb index 3d0430d..0ea5135 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; |