gcc/testsuite/gcc.target/s390/htm-builtins-compile-3.c

   1 /* This checks the availability of the XL compiler intrinsics for
   2    transactional execution with the expected prototypes.  */
   3
   4 /* { dg-do compile } */
   5 /* { dg-options "-O3 -march=zEC12 -mzarch" } */
   6
   7 #include <htmxlintrin.h>
   8
   9 int a = 0;
  10 unsigned long g;
  11
  12 int
  13 foo ()
  14 {
  15   struct __htm_tdb *tdb_struct;
  16   void * const tdb = tdb_struct;
  17   long result;
  18   unsigned char code;
  19
  20   result = __TM_simple_begin ();
  21   result = __TM_begin (tdb);
  22   result = __TM_end ();
  23   __TM_abort ();
  24   __TM_named_abort (42);
  25   __TM_non_transactional_store (&g, 42);
  26   result = __TM_nesting_depth (tdb);
  27
  28   result = __TM_is_user_abort (tdb);
  29   result = __TM_is_named_user_abort (tdb, &code);
  30   result = __TM_is_illegal (tdb);
  31   result = __TM_is_footprint_exceeded (tdb);
  32   result = __TM_is_nested_too_deep (tdb);
  33   result = __TM_is_conflict (tdb);
  34   result = __TM_is_failure_persistent (result);
  35   result = __TM_failure_address (tdb);
  36   result = __TM_failure_code (tdb);
  37 }