1  /* { dg-do compile } */
       2  /* { dg-options "-fgnu-tm -O" } */
       3  
       4  /* Since the non TM version of new_node() gets optimized away, it
       5     shouldn't appear in the clone table either.  */
       6  /* { dg-final { scan-assembler-not "tm_clone_table" { target { ! *-*-darwin*  } } } } */
       7  /* { dg-final { scan-assembler-not "__DATA,__tm_clone_table" { target *-*-darwin*  } } } */
       8  
       9  #define NULL 0
      10  extern void *malloc (__SIZE_TYPE__);
      11  
      12  __attribute__((transaction_pure))
      13  void exit(int status);
      14  
      15  typedef struct node {
      16  } node_t;
      17  
      18  __attribute__((transaction_safe))
      19  static node_t *new_node(node_t *next)
      20  {
      21    node_t *node;
      22    node = (node_t *)malloc(sizeof(node_t));
      23    if (node == NULL) {
      24      exit(1);
      25    }
      26    return NULL;
      27  }
      28  
      29  static node_t *set_new()
      30  {
      31    node_t *min, *max;
      32    __transaction_atomic {
      33      max = new_node(NULL);
      34      min = new_node(max);
      35    }
      36    return min;
      37  }
      38  
      39  int main(int argc, char **argv)
      40  {
      41    set_new();
      42    return 0;
      43  }