RosettaCodeData/Task/Copy-a-string/Ada/copy-a-string-4.adb

-- The package Ada.Strings.Unbounded contains the definition of the Unbounded_String type and all its methods
Src : Unbounded_String := To_Unbounded_String("Hello");
Dest : Unbounded_String := Src;