/* Build executable statement trees.
- Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009
+ Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009, 2010
Free Software Foundation, Inc.
Contributed by Andy Vaught
case EXEC_IF:
case EXEC_PAUSE:
case EXEC_STOP:
+ case EXEC_ERROR_STOP:
case EXEC_EXIT:
case EXEC_WHERE:
case EXEC_IOLENGTH:
case EXEC_LABEL_ASSIGN:
case EXEC_ENTRY:
case EXEC_ARITHMETIC_IF:
+ case EXEC_CRITICAL:
+ case EXEC_SYNC_ALL:
+ case EXEC_SYNC_IMAGES:
+ case EXEC_SYNC_MEMORY:
+ break;
+
+ case EXEC_BLOCK:
+ gfc_free_namespace (p->ext.ns);
break;
case EXEC_COMPCALL:
break;
case EXEC_SELECT:
+ case EXEC_SELECT_TYPE:
if (p->ext.case_list)
gfc_free_case_list (p->ext.case_list);
break;
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: