Sign in
gnu
/
gcc
/
1ba7adabf29eb671e418692fad076ea6edd08e3d
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aliasing3_pkg.adb
blob: 73c1e3e2cf3d6ef7abc53a82a3ce639f092c57ca [
file
] [
log
] [
blame
]
package
body
Aliasing3_Pkg
is
procedure
Test
(
A
:
Arr
)
is
begin
if
A
(
1
)
/=
5
then
raise
Program_Error
;
end
if
;
end
;
end
Aliasing3_Pkg
;