Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
array13.ads
blob: 0d0a8df501b199ca532aa104686abdcaa0b4eb45 [
file
] [
log
] [
blame
]
package
Array13
is
Max
:
Natural
:=
1
;
type
Arr
is
array
(
Natural
range
0.
.
Max
)
of
Natural
;
type T
is
record
A
:
Arr
:=
(
others
=>
0
);
end
record
;
procedure
Foo
;
end
Array13
;