2 -- { dg-options "-gnat83" }
5 (Source
: in String; Dest
: out String; Char_Count
: out Natural) is
8 --| Copy string Source to string Dest
9 Dest
:= (others => ' ');
11 if Source
'Length > 0 and then Dest
'Length > 0 then
12 if Source
'Length > Dest
'Length then
13 Char_Count
:= Dest
'Length;
15 Dest
(Dest
'First .. (Dest
'First + Source
'Length - 1)) := Source
;
16 Char_Count
:= Source
'Length;