12 lines · plain
1! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s2 3! CHECK: not yet implemented: OpenMP ATOMIC COMPARE4program p5 integer :: x6 logical :: r7 !$omp atomic compare8 if (x .eq. 0) then9 x = 210 end if11end program p12