Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
lto8_pkg.adb
blob: de4c2a75797723dbef6b01d5e834d716a7fb47f4 [
file
] [
log
] [
blame
]
--
{
dg
-
options
"-gnatws"
}
package
body
Lto8_Pkg
is
protected
body
Protected_Queue_T
is
entry
Seize
when
True
is
begin
null
;
end
;
end
Protected_Queue_T
;
end
Lto8_Pkg
;