openmp, fortran: Add Fortran support for parsing metadirectives

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

diff --git a/gcc/fortran/st.cc b/gcc/fortran/st.cc
index 73f30c2137fa86bd5517cf789496fd064fc85ab5..dca118863957f206d1e8ca2f313bcdb7414311f7 100644 (file)
--- a/gcc/fortran/st.cc
+++ b/gcc/fortran/st.cc
@@ -296,6 +296,10 @@ gfc_free_statement (gfc_code *p)
     case EXEC_OMP_TASKYIELD:
       break;
 
+    case EXEC_OMP_METADIRECTIVE:
+      gfc_free_omp_metadirective_clauses (p->ext.omp_metadirective_clauses);
+      break;
+
     default:
       gfc_internal_error ("gfc_free_statement(): Bad statement");
     }