diff options
| -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; |