b1a73b4894
libgomp/ * testsuite/lib/libgomp.exp (check_effective_target_offload_target_nvptx): New proc. * testsuite/libgomp.fortran/target-print-1.f90: Use it with 'dg-skip-if'. * testsuite/libgomp.oacc-fortran/print-1.f90: Likewise. * testsuite/libgomp.fortran/target-print-1-nvptx.f90: New file. * testsuite/libgomp.oacc-fortran/print-1-nvptx.f90: Likewise. From-SVN: r278779
18 lines
382 B
Fortran
18 lines
382 B
Fortran
! 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
|