[Fortran] Disable front-end optimization for OpenACC atomic (PR93462)

[thirdparty/gcc.git] / gcc / fortran / frontend-passes.c

diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c
index de11524ba14172d7d5273a6d1cfc529efd9e602e..bbe34d61c99fb237a0f53f4fa4b2986710d93f16 100644 (file)
--- a/gcc/fortran/frontend-passes.c
+++ b/gcc/fortran/frontend-passes.c
@@ -5258,6 +5258,7 @@ gfc_code_walker (gfc_code **c, walk_code_fn_t codefn, walk_expr_fn_t exprfn,
              WALK_SUBEXPR (co->ext.dt->extra_comma);
              break;
 
+           case EXEC_OACC_ATOMIC:
            case EXEC_OMP_ATOMIC:
              in_omp_atomic = true;
              break;