28 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 :: error = 09 integer :: i10 integer :: sum = 011 12 !$omp target parallel do reduction(+:sum)13 do i = 1, 10014 sum = sum + i15 end do16 !$omp end target parallel do17 18 if (sum /= 5050) then19 error = 120 endif21 22 print *,"number of errors: ", error23 24end program main25 26! CHECK: "PluginInterface" device {{[0-9]+}} info: Launching kernel {{.*}}27! CHECK: number of errors: 028