diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/atomic4.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/atomic4.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/atomic4.adb b/gcc/testsuite/gnat.dg/atomic4.adb new file mode 100644 index 000000000..99f4ee14c --- /dev/null +++ b/gcc/testsuite/gnat.dg/atomic4.adb @@ -0,0 +1,12 @@ +-- { 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; |