gcc/testsuite/gnat.dg/string_slice2.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O" }
   3
   4 with Ada.Strings;
   5 with Ada.Strings.Fixed;
   6
   7 procedure String_Slice2 is
   8
   9    package ASF renames Ada.Strings.Fixed;
  10
  11    Delete_String  : String(1..10);
  12    Source_String2 : String(1..12) := "abcdefghijkl";
  13
  14 begin
  15
  16    Delete_String := Source_String2(1..10);
  17
  18    ASF.Delete(Source  => Delete_String,
  19               From    => 6,
  20               Through => Delete_String'Last,
  21               Justify => Ada.Strings.Left,
  22               Pad     => 'x');
  23
  24 end;