Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
array39.adb
blob: 3e886c1f606ab399ba2d59d40da52d974f610878 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
Array39_Pkg
;
use
Array39_Pkg
;
procedure
Array39
is
T
:
Tsk
;
R
:
Rec2
;
begin
T
.
E
(
R
,
1
);
if
R
.
A
(
1
)
/=
Val
then
raise
Program_Error
;
end
if
;
end
;