Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
test_self.adb
blob: 6348c02a075f32aabb5707c78a5e445851ecb8dc [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
Text_IO
;
use
Text_IO
;
with
Self
;
use
Self
;
procedure
Test_Self
is
It
:
Lim
:=
G
(
5
);
begin
Change
(
It
,
10
);
if
Get
(
It
)
/=
35
then
Put_Line
(
"self-referential aggregate incorrectly built"
);
end
if
;
end
Test_Self
;