vss_24.0.0_b4d0be7c/testsuite/text/performance/U816-022/test_u816_022.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
with Ada.Strings.Wide_Wide_Unbounded;

package Test_U816_022 is

   type Test_Item is record
      Offset : Natural;
      Text   : Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_String_Access;
   end record;

   procedure Run_Test_Iteration (Item : Test_Item);

end Test_U816_022;