blob: 814cf80ff2e1e94c4d7a8e50a16b1821f7a4ad08 [file] [log] [blame]
package Inline13_Pkg is
subtype Padded_T is String (1..8);
type T is new Padded_T;
function Padded (Value : T) return Padded_T;
pragma Inline_Always (Padded);
end Inline13_Pkg;