1! { dg-do compile }
2! { dg-additional-options "-fdump-tree-original" }
3
4! Test to ensure that device-modifier 'ancestor' is parsed correctly in
5! device clauses.
6
7!$omp requires reverse_offload  ! { dg-error "Sorry, 'reverse_offload' clause at \\(1\\) on REQUIRES directive is not yet supported" }
8
9!$omp target device (ancestor : 1)  ! { dg-message "" "sorry, unimplemented: 'ancestor' not yet supported" { xfail *-*-* } }
10!$omp end target
11
12end
13
14! TODO: dg-final { scan-tree-dump-times "pragma omp target \[^\n\r)]*device\\(ancestor:1\\)" 1 "original" } }
15