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