xref: /llvm-project/offload/test/offloading/fortran/basic-target-parallel-region.f90 (revision 8823448807f3b1a1362d1417e062d763734e02f5) 
1! Basic offloading test with a target region
2! REQUIRES: flang, amdgpu
3
4! RUN: %libomptarget-compile-fortran-run-and-check-generic
5program main
6   use omp_lib
7   integer :: x
8
9   !$omp target parallel map(from: x)
10         x = omp_get_num_threads()
11   !$omp end target parallel
12   print *,"parallel = ", (x .ne. 1)
13
14end program main
15
16! CHECK: parallel = T
17