| ! Ensure that write on the offload device works. | |
| ! { dg-do run } | |
| ! { dg-output "The answer is 42(\n|\r\n|\r)+" } | |
| ! Separate file 'print-1-nvptx.f90' for nvptx offloading. | |
| ! { dg-skip-if "separate file" { offload_target_nvptx } } | |
| program main | |
| implicit none | |
| integer :: var = 42 | |
| !$acc parallel | |
| write (0, '("The answer is ", I2)') var | |
| !$acc end parallel | |
| end program main |