Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
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
;