OpenACC atomic directive

[gcc.git] / gcc / fortran / st.c

diff --git a/gcc/fortran/st.c b/gcc/fortran/st.c
index 116af15d87efe062c21576802c12caeb9eba7b5f..629b51d371c9236c8d8e3a437f25576911ae0d30 100644 (file)
--- a/gcc/fortran/st.c
+++ b/gcc/fortran/st.c
@@ -240,6 +240,7 @@ gfc_free_statement (gfc_code *p)
       gfc_free_omp_namelist (p->ext.omp_namelist);
       break;
 
+    case EXEC_OACC_ATOMIC:
     case EXEC_OMP_ATOMIC:
     case EXEC_OMP_BARRIER:
     case EXEC_OMP_MASTER: