1! Ensure that write on the offload device works.
2
3! { dg-do run }
4! { dg-output "The answer is 42(\n|\r\n|\r)+" }
5
6! Separate file 'target-print-1-nvptx.f90' for nvptx offloading.
7! { dg-skip-if "separate file" { offload_target_nvptx } }
8
9program main
10  implicit none
11  integer :: var = 42
12
13!$omp target
14  write (0, '("The answer is ", I2)') var
15!$omp end target
16
17end program main
18