diff options
Diffstat (limited to 'gcc/fortran/st.cc')
| -rw-r--r-- | gcc/fortran/st.cc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/st.cc b/gcc/fortran/st.cc index 0ee85c4..509d28c 100644 --- a/gcc/fortran/st.cc +++ b/gcc/fortran/st.cc @@ -189,8 +189,11 @@ gfc_free_statement (gfc_code *p) break; case EXEC_DO_CONCURRENT: + for (int i = 0; i < LOCALITY_NUM; i++) + gfc_free_expr_list (p->ext.concur.locality[i]); + gcc_fallthrough (); case EXEC_FORALL: - gfc_free_forall_iterator (p->ext.forall_iterator); + gfc_free_forall_iterator (p->ext.concur.forall_iterator); break; case EXEC_OACC_DECLARE: |