17 lines · plain
1! Basic offloading test with a target region2! REQUIRES: flang, amdgpu3 4! RUN: %libomptarget-compile-fortran-run-and-check-generic5program main6 use omp_lib7 integer :: x8 9 !$omp target parallel map(from: x)10 x = omp_get_num_threads()11 !$omp end target parallel12 print *,"parallel = ", (x .ne. 1)13 14end program main15 16! CHECK: parallel = T17