blob: c71a09524838daa771d12a3c9cf53e263c954ec1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! Ensure that printf on the offload device works.
! { dg-do run }
! { dg-output "The answer is 42(\n|\r\n|\r)+" }
! { dg-xfail-if "no write for nvidia" { openacc_nvidia_accel_selected } }
program main
implicit none
integer :: var = 42
!$omp target
write (0, '("The answer is ", I2)') var
!$omp end target
end program main
|