1-- { dg-do compile }
2-- { dg-options "-O" }
3
4with Ada.Strings;
5with Ada.Strings.Fixed;
6
7procedure 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
14begin
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
24end;
25