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