source: CIVL/examples/omp/dataracebench-1.3.2/micro-benchmarks-fortran/DRB160-nobarrier-orig-gpu-yes.f95

!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
!!! Copyright (c) 2017-20, Lawrence Livermore National Security, LLC
!!! and DataRaceBench project contributors. See the DataRaceBench/COPYRIGHT file for details.
!!!
!!! SPDX-License-Identifier: (BSD-3-Clause)
!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!

!Vector addition followed by multiplication involving the same var should have a barrier in between.
!omp distribute directive does not have implicit barrier. This will cause data race.
!Data Race Pair: b[i]@36:23 and b[i]@42:13

module DRB160
    integer :: a, i, j, k, val
    integer :: b(8), c(8), temp(8)
end module

program DRB160_nobarrier_orig_gpu_yes
    use omp_lib
    use DRB160
    implicit none

    do i = 1, 8
        b(i) = 0
        c(i) = 2
        temp(i) = 0
    end do

    a = 2
    val = 0

    !$omp target map(tofrom:b) map(to:c,temp,a) device(0)
    !$omp teams
    do i = 1, 100
        !$omp distribute
        do j = 1, 8
            temp(j) = b(j)+c(j)
        end do
        !$omp end distribute

        !$omp distribute
        do j = 8, 1, k-1
            b(j) = temp(j)*a
        end do
        !$omp end distribute
    end do
    !$omp end teams
    !$omp end target

    do i = 1, 100
        val = val+2
        val = val*2
    end do

    do i = 1, 8
        if (val /= b(i)) then
            print*,b(i),val
        end if
    end do

end program