40 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 implicit none9 integer :: i,j10 integer :: array(10,10), errors = 011 do i = 1, 1012 do j = 1, 1013 array(j, i) = 014 end do15 end do16 17 !$omp target parallel do map(from:array) collapse(2)18 do i = 1, 1019 do j = 1, 1020 array( j, i) = i + j21 end do22 end do23 !$omp end target parallel do24 25 do i = 1, 1026 do j = 1, 1027 if ( array( j, i) .ne. (i + j) ) then28 errors = errors + 129 end if30 end do31 end do32 33 print *,"number of errors: ", errors34 35end program main36 37! CHECK: "PluginInterface" device {{[0-9]+}} info: Launching kernel {{.*}}38! CHECK: number of errors: 039 40