1! { dg-do compile }
2! { dg-additional-options "-fdump-tree-original" }
3
4! Test to ensure that device-modifier 'device_num' is parsed correctly in
5! device clauses.
6
7!$omp target device (device_num : 42)
8!$omp end target
9
10end
11
12! { dg-final { scan-tree-dump "pragma omp target \[^\n\r)]*device\\(42\\)" "original" } }
13