Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aliasing3.adb
blob: 916821c552d47ebce54895319794c2c2cc0bd15a [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-O2 -gnatn"
}
with
Aliasing3_Pkg
;
use
Aliasing3_Pkg
;
procedure
Aliasing3
is
begin
Pointer
.
A
(
1
)
:=
5
;
Test
(
Block
.
A
);
end
;