diff options
Diffstat (limited to 'gcc/fortran/st.c')
| -rw-r--r-- | gcc/fortran/st.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/st.c b/gcc/fortran/st.c index c3c640a..f1765e6 100644 --- a/gcc/fortran/st.c +++ b/gcc/fortran/st.c @@ -122,6 +122,7 @@ gfc_free_statement (gfc_code *p) break; case EXEC_SELECT: + case EXEC_SELECT_TYPE: if (p->ext.case_list) gfc_free_case_list (p->ext.case_list); break; @@ -132,7 +133,7 @@ gfc_free_statement (gfc_code *p) case EXEC_ALLOCATE: case EXEC_DEALLOCATE: - gfc_free_alloc_list (p->ext.alloc_list); + gfc_free_alloc_list (p->ext.alloc.list); break; case EXEC_OPEN: |