gcc/testsuite/gnat.dg/varsize4.adb

   1 -- { dg-do compile }
   2
   3 package body Varsize4 is
   4
   5    function Func (Bytes_Read : out Natural) return Arr is
   6       Ret : Arr := (others => False);
   7    begin
   8       Bytes_Read := 0;
   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;