Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
array25_pkg.ads
blob: 1965bab249b4a007680a83928dae9cb4114c6e4b [
file
] [
log
] [
blame
]
generic
UB1
:
Natural
;
UB2
:
Natural
;
package
Array25_Pkg
is
type
Arr1
is
array
(
1
..
UB1
)
of
Integer
;
type
Rec
is
record
Data
:
Arr1
;
end
record
;
type
Arr2
is
array
(
1
..
UB2
)
of
Rec
;
procedure
Get
(
A
:
out
Arr2
);
end
Array25_Pkg
;