Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gnat.dg
/
deep_old.adb
blob: d7818ff96869fcb95a347dc8e14b522c5a7fcc70 [
file
] [
log
] [
blame
]
--
{
dg
-
options
"-gnatws"
}
procedure
Deep_Old
(
X
:
Integer
)
is
begin
begin
if
X
=
X
'Old then
null;
end if;
end;
end Deep_Old;