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