offload/test/offloading/fortran/basic-target-parallel-do.f90

   1 ! Basic offloading test with a target region
   2 ! REQUIRES: flang, amdgpu
   3
   4 ! RUN: %libomptarget-compile-fortran-generic
   5 ! RUN: env LIBOMPTARGET_INFO=16 %libomptarget-run-generic 2>&1 | %fcheck-generic
   6 program main
   7    use omp_lib
   8    integer :: x(100)
   9    integer :: errors = 0
  10    integer :: i
  11
  12    !$omp target parallel do map(from: x)
  13    do i = 1, 100
  14        x(i) = i
  15    end do
  16    !$omp end target parallel do
  17    do i = 1, 100
  18        if ( x(i) .ne. i ) then
  19            errors = errors + 1
  20        end if
  21    end do
  22
  23    print *,"number of errors: ", errors
  24
  25 end program main
  26
  27 ! CHECK:  "PluginInterface" device {{[0-9]+}} info: Launching kernel {{.*}}
  28 ! CHECK:  number of errors: 0