libgomp/testsuite/libgomp.fortran/target-print-1.f90

   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
   9 program 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
  17 end program main