27 lines · plain
1! REQUIRES: flang, amdgpu2 3! RUN: %libomptarget-compile-fortran-generic4! RUN: %libomptarget-run-generic 2>&1 | %fcheck-generic5program main6 integer :: array(10) = 07 integer :: x, y, z8 !$omp target9 !$omp teams distribute private(x, y)10 OuterLoopOne: do x=1,111 array(2) = 4212 OuterLoopTwo: do y=1,113 !$omp parallel do private(z)14 InnerLoopOne: do z=1,1015 array(z) = 2016 enddo InnerLoopOne17 !$omp end parallel do18 enddo OuterLoopTwo19 enddo OuterLoopOne20 !$omp end teams distribute21 !$omp end target22 ! Expected to print all 20's23 print *, array24end program main25 26! CHECK: 20 20 20 20 20 20 20 20 20 2027