Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
array18_pkg.ads
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
;