| !RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 %s -o - | FileCheck %s | |
| module m | |
| !$omp requires atomic_default_mem_order(acq_rel) | |
| contains | |
| subroutine f00(x, v) | |
| integer :: x, v | |
| !CHECK: omp.atomic.read %{{[ %#=0-9]+}} memory_order(acquire) | |
| !$omp atomic read | |
| v = x | |
| !CHECK: omp.atomic.write %{{[ %#=0-9]+}} memory_order(release) | |
| !$omp atomic write | |
| x = v | |
| end | |
| end module |