18 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=60 %s -o - | FileCheck %s2 3! Check that this compiles successfully.4 5!CHECK: omp.atomic.capture6!CHECK: omp.atomic.read7!CHECK: omp.atomic.update8subroutine f009 implicit none10 real :: c11 complex, allocatable :: x12 !$omp atomic update capture13 c = x%re14 x%re = x%re + 1.015 !$omp end atomic16end17 18