25 lines
492 B
Ada
25 lines
492 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-O" }
|
|
|
|
with Ada.Strings;
|
|
with Ada.Strings.Fixed;
|
|
|
|
procedure String_Slice2 is
|
|
|
|
package ASF renames Ada.Strings.Fixed;
|
|
|
|
Delete_String : String(1..10);
|
|
Source_String2 : String(1..12) := "abcdefghijkl";
|
|
|
|
begin
|
|
|
|
Delete_String := Source_String2(1..10);
|
|
|
|
ASF.Delete(Source => Delete_String,
|
|
From => 6,
|
|
Through => Delete_String'Last,
|
|
Justify => Ada.Strings.Left,
|
|
Pad => 'x');
|
|
|
|
end;
|