23 lines · plain
1!RUN: %flang_fc1 -emit-hlfir %openmp_flags -fopenmp-version=50 %s -o - | FileCheck %s2 3module m4!$omp requires atomic_default_mem_order(acq_rel)5 6contains7 8!CHECK: %[[V:[0-9]+]]:2 = hlfir.declare {{.*}} {uniq_name = "_QMmFf00Ev"}9!CHECK: %[[X:[0-9]+]]:2 = hlfir.declare {{.*}} {uniq_name = "_QMmFf00Ex"}10!CHECK: omp.atomic.read %[[V]]#0 = %[[X]]#0 memory_order(acquire)11!CHECK: omp.atomic.write %[[X]]#0 = %{{[0-9]+}} memory_order(release)12 13subroutine f00(x, v)14 integer :: x, v15 !$omp atomic read16 v = x17 18 !$omp atomic write19 x = v20end21 22end module23