subtype T_Nbr_Exception is Natural range 0 .. Max_Exceptions;
type T_Tab_Exceptions is array (T_Nbr_Exception) of Unbounded_String;
type T_Exception is
record
Nbr_Exceptions : Natural := 0;
Tab_Exceptions : T_Tab_Exceptions;
end record;
Les exception sont simplement contenues dans un tableau unidimensionnel.