gcc/testsuite/gcc.dg/ia64-sync-1.c

   1 /* { dg-do run { target ia64-*-* } } */
   2 /* { dg-options } */
   3
   4 /* Test basic functionality of the intrinsics.  The operations should
   5    not be optimized away if no one checks the return values.  */
   6
   7 #include <ia64intrin.h>
   8
   9 static int AI[12];
  10 static int init_noret_si[12] = { 0, 0, 0, 1, 0, 0, 0, 0, -1, 0, 0, 0 };
  11 static int test_noret_si[12] = { 1, 1, 1, 0, 1, 4, 22, -12, 7, 8, 9, 7 };
  12
  13 static void
  14 do_noret_si (void)
  15 {
  16   __sync_val_compare_and_swap(AI+0, 0, 1);
  17   __sync_bool_compare_and_swap(AI+1, 0, 1);
  18   __sync_lock_test_and_set(AI+2, 1);
  19   __sync_lock_release(AI+3);
  20
  21   __sync_fetch_and_add(AI+4, 1);
  22   __sync_fetch_and_add(AI+5, 4);
  23   __sync_fetch_and_add(AI+6, 22);
  24   __sync_fetch_and_sub(AI+7, 12);
  25   __sync_fetch_and_and(AI+8, 7);
  26   __sync_fetch_and_or(AI+9, 8);
  27   __sync_fetch_and_xor(AI+10, 9);
  28   __sync_fetch_and_nand(AI+11, 7);
  29 }
  30
  31 static long AL[12];
  32 static long init_noret_di[12] = { 0, 0, 0, 1, 0, 0, 0, 0, -1, 0, 0, 0 };
  33 static long test_noret_di[12] = { 1, 1, 1, 0, 1, 4, 22, -12, 7, 8, 9, 7 };
  34
  35 static void
  36 do_noret_di (void)
  37 {
  38   __sync_val_compare_and_swap(AL+0, 0, 1);
  39   __sync_bool_compare_and_swap(AL+1, 0, 1);
  40   __sync_lock_test_and_set(AL+2, 1);
  41   __sync_lock_release(AL+3);
  42
  43   __sync_fetch_and_add(AL+4, 1);
  44   __sync_fetch_and_add(AL+5, 4);
  45   __sync_fetch_and_add(AL+6, 22);
  46   __sync_fetch_and_sub(AL+7, 12);
  47   __sync_fetch_and_and(AL+8, 7);
  48   __sync_fetch_and_or(AL+9, 8);
  49   __sync_fetch_and_xor(AL+10, 9);
  50   __sync_fetch_and_nand(AL+11, 7);
  51 }
  52
  53 int main()
  54 {
  55   memcpy(AI, init_noret_si, sizeof(init_noret_si));
  56   memcpy(AL, init_noret_di, sizeof(init_noret_di));
  57
  58   do_noret_si ();
  59   do_noret_di ();
  60
  61   if (memcmp (AI, test_noret_si, sizeof(test_noret_si)))
  62     abort ();
  63   if (memcmp (AL, test_noret_di, sizeof(test_noret_di)))
  64     abort ();
  65
  66   return 0;
  67 }