20 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 %s -o - | FileCheck %s2 3module m4!$omp requires atomic_default_mem_order(acq_rel)5 6contains7 8subroutine f00(x, v)9 integer :: x, v10!CHECK: omp.atomic.read %{{[ %#=0-9]+}} memory_order(acquire)11 !$omp atomic read12 v = x13 14!CHECK: omp.atomic.write %{{[ %#=0-9]+}} memory_order(release)15 !$omp atomic write16 x = v17end18 19end module20