! { dg-do compile }
! { dg-additional-options "-fdump-tree-original" }

! Test to ensure that device-modifier 'device_num' is parsed correctly in
! device clauses.

!$omp target device (device_num : 42)
!$omp end target

end

! { dg-final { scan-tree-dump "pragma omp target \[^\n\r)]*device\\(42\\)" "original" } }