14 lines · plain
1!RUN: bbc %openmp_flags -fopenmp-version=50 -emit-hlfir %s -o - | FileCheck %s2!RUN: %flang_fc1 -emit-hlfir %openmp_flags -fopenmp-version=50 %s -o - | FileCheck %s3 4!CHECK: omp.atomic.capture memory_order(relaxed)5 6subroutine f06(x, v)7 integer :: x, v8 !$omp requires atomic_default_mem_order(acquire)9 !$omp atomic update capture10 v = x11 x = x + 112 !$omp end atomic13end14