offload/test/offloading/fortran/basic-target-parallel-region.f90


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

! Basic offloading test with a target region
! REQUIRES: flang, amdgpu

! RUN: %libomptarget-compile-fortran-run-and-check-generic
! XFAIL: intelgpu
program main
   use omp_lib
   integer :: x

   !$omp target parallel map(from: x)
         x = omp_get_num_threads()
   !$omp end target parallel
   print *,"parallel = ", (x .ne. 1)

end program main

! CHECK: parallel = T