anchor.diff:          <@
               fun (range: _1D) (result: 'a[]) ->
                   atomic %f result.[0] |> ignore
  +                barrier ()
           @>
   
       let expected =
  
positive.code:     "Results should be equal"
      |> Expect.equal actual expected
  
  let tests =
      testList "Tests on atomic functions" [
          stressTestCases
          foldTestCases
          reduceTestCases
          atomicInsideQuotTest
      ] |> testSequenced
  
negative.code:             fun (range: _1D) (result: int[]) ->
                  let incx2 x = x + 2
                  atomic incx2 result.[0] |> ignore
                  barrier ()
          @>
  
      let size = Settings.wgSize * 2
  