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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! 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