source: CIVL/examples/omp/dataracebench-1.3.2/micro-benchmarks-fortran/DRB078-taskdep2-orig-no.f95@ cc8e265

!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
!!! 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)
!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!

!Two tasks with depend clause to ensure execution order, no data races.
!i is shared for two tasks based on implicit data-sharing attribute rules.


program DRB078_taskdep2_orig_no
    use omp_lib
    implicit none

    integer :: i
    i = 0

    !$omp parallel
        !$omp single
            !$omp task depend (out:i)
                call sleep(3)
                i=3
            !$omp end task
            !$omp task depend (out:i)
                i=2
            !$omp end task
        !$omp end single
    !$omp end parallel

    if (i /=2 ) then
        print 100, i
        100 format (i3)
    end if
end program