| ! { 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" } } |