29 lines · plain
1! Basic offloading test with a target region2! REQUIRES: flang, amdgpu3 4! RUN: %libomptarget-compile-fortran-generic5! RUN: env LIBOMPTARGET_INFO=16 %libomptarget-run-generic 2>&1 | %fcheck-generic6program main7 use omp_lib8 integer :: x(100)9 integer :: errors = 010 integer :: i11 12 !$omp target parallel do map(from: x)13 do i = 1, 10014 x(i) = i15 end do16 !$omp end target parallel do17 do i = 1, 10018 if ( x(i) .ne. i ) then19 errors = errors + 120 end if21 end do22 23 print *,"number of errors: ", errors24 25end program main26 27! CHECK: "PluginInterface" device {{[0-9]+}} info: Launching kernel {{.*}}28! CHECK: number of errors: 029