blob: 9e441099f19322c49cd344a9085fd032214c522e [file] [log] [blame]
package Array18_Pkg is
function N return Positive;
subtype S is String (1 .. N);
function F return S;
end Array18_Pkg;