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