1package Stack_Usage3_Pkg is 2 3 subtype Small_String is String (1..80); 4 5 function Diag (S : String) return Small_String; 6 7end Stack_Usage3_Pkg; 8
1package Stack_Usage3_Pkg is 2 3 subtype Small_String is String (1..80); 4 5 function Diag (S : String) return Small_String; 6 7end Stack_Usage3_Pkg; 8