gcc/testsuite/gnat.dg/specs/varsize_return_pkg1.adb

   1 package body Varsize_Return_Pkg1 is
   2
   3   function Is_Fixed return Boolean is
   4   begin
   5     return True;
   6   end Is_Fixed;
   7
   8   function Do_Item (I : Natural) return Variable_Data_Fixed_T is
   9     It : Variable_Data_Fixed_T;
  10   begin
  11     return It;
  12   end Do_Item;
  13
  14   My_Db : Db.T;
  15
  16   procedure Run is
  17     Kitem : Variable_Data_Fixed_T;
  18     I : Natural;
  19   begin
  20     Kitem := Db.Get (My_Db);
  21     Kitem := Do_Item (I);
  22   end Run;
  23
  24 end Varsize_Return_Pkg1;