Equivalente a: Target := To_Bounded_String (Source, Drop);
Para utilizarla hay que incluir la librería Ada.Strings.Unbounded).
procedure Set_Bounded_String (Target : out Bounded_String; Source : in String; Drop : in Truncation := Error);
with Ada.Strings.Bounded; -- Librería de ristras de tamaño limitado ... package Str100 is new Ada.Strings.Bounded.Generic_Bounded_Length(100); use Str100; ... SL: Str100.Bounded_String; ... Set_Bounded_String (SL, "Universidad de Las Palmas de Gran Canaria");