Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
renaming16.adb
blob: 1c30e4dae6a2e3d750f323335e4f76a5eafe3881 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Renaming16_Pkg
;
use
Renaming16_Pkg
;
procedure
Renaming16
is
Results
:
Bindings_Query_Results_Type
;
begin
for
I
in
Create_Bindings_Iterator
(
Results
)
loop
null
;
end
loop
;
end
;