[thirdparty/gcc.git] / gcc / testsuite / gnat.dg / varsize4.adb

-- { dg-do compile }

package body Varsize4 is

   function Func (Bytes_Read : out Natural) return Arr is
      Ret : Arr := (others => False);
   begin
      Bytes_Read := 0;
      return Ret;
   end;

   function Get return Natural is
      Data  : Arr;
      Bytes : Natural;
   begin
      Data := Func (Bytes);
      return Bytes;
   end;

end Varsize4;
Commit	Line	Data
4d8b41bb EB	1	-- { dg-do compile }
	2
	3	package body Varsize4 is
	4
1c1ee809	5	function Func (Bytes_Read : out Natural) return Arr is
4d8b41bb EB	6	Ret : Arr := (others => False);
4d8b41bb EB	7	begin
1c1ee809	8	Bytes_Read := 0;
4d8b41bb EB	9	return Ret;
	10	end;
	11
	12	function Get return Natural is
	13	Data : Arr;
	14	Bytes : Natural;
	15	begin
	16	Data := Func (Bytes);
	17	return Bytes;
	18	end;
	19
	20	end Varsize4;