1  /* { dg-do compile } */
       2  /* { dg-options "-fgnu-tm -fdump-tree-tmedge" } */
       3  
       4  int i;
       5  extern void virgin () __attribute__((transaction_pure));
       6  
       7  void
       8  foo()
       9  {
      10  	__transaction_atomic {
      11  	    virgin(i);
      12  	}
      13  }
      14  
      15  /* { dg-final { scan-tree-dump-times "readOnly" 1 "tmedge" } } */