Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt3.adb
blob: b8ca2c7fba61aed36958f29c654ced8993c042a7 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O3"
}
with
Opt3_Pkg
;
use
Opt3_Pkg
;
procedure
Opt3
is
type
Buffer_Type
is
array
(
Integer
range
<>
)
of
Short_Integer
;
B
:
Buffer_Type
(
1
..
256
)
:=
(
others
=>
0
);
begin
F
(
B
(
1
));
end
;