17 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 %s -o - | FileCheck %s2 3module m4!$omp requires atomic_default_mem_order(acquire)5 6contains7 8subroutine f00(x, v)9 integer :: x, v10!CHECK: omp.atomic.write %{{[ %#=0-9]+}} memory_order(relaxed)11 !$omp atomic write12 x = v13end14 15end module16 17