+ add test that checks that the Atomic*-intrinsics work correctly inside generics

tests/test/tatomic9.pp

@@ -0,0 +1,46 @@
+{ %NORUN }
+
+program tatomic9;
+
+{$mode objfpc}
+
+generic procedure TestInc<T>(var aArg: T);
+begin
+  AtomicIncrement(aArg);
+end;
+
+generic procedure TestAdd<T>(var aArg1: T; aArg2: T);
+begin
+  AtomicIncrement(aArg1, aArg2);
+end;
+
+generic procedure TestXchg<T>(var aArg1: T; aArg2: T);
+begin
+  AtomicExchange(aArg1, aArg2);
+end;
+
+generic procedure TestCmpXchg<T>(var aArg1: T; aArg2, aArg3: T);
+begin
+  AtomicCmpExchange(aArg1, aArg2, aArg3);
+end;
+
+generic procedure TestCmpXchg<T; U>(var aArg1: T; aArg2, aArg3: T; out aArg4: U);
+begin
+  AtomicCmpExchange(aArg1, aArg2, aArg3, aArg4);
+end;
+
+var
+  l: LongInt;
+  b: Boolean;
+  b32: Boolean32;
+  lb: LongBool;
+begin
+  l := 0;
+  specialize TestInc<LongInt>(l);
+  specialize TestAdd<LongInt>(l, 42);
+  specialize TestXchg<LongInt>(l, 21);
+  specialize TestCmpXchg<LongInt>(l, 21, 84);
+  specialize TestCmpXchg<LongInt, Boolean>(l, 84, 42, b);
+  specialize TestCmpXchg<LongInt, Boolean32>(l, 84, 42, b32);
+  specialize TestCmpXchg<LongInt, LongBool>(l, 84, 42, lb);
+end.