Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
atomic4.adb
blob: 99f4ee14c983ba6f37f62173ecefc3a5f2549ef1 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O -gnatn"
}
package
body
Atomic4
is
procedure
Next
(
Self
:
in
out
Reader
'Class) is
begin
Self.Current_Reference := Self.Reference_Stack.Last_Element;
Self.Reference_Stack.Delete_Last;
end Next;
end Atomic4;