diff options
Diffstat (limited to 'gcc/fortran/parse.h')
| -rw-r--r-- | gcc/fortran/parse.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/parse.h b/gcc/fortran/parse.h index f12fd5e..e8f71cf 100644 --- a/gcc/fortran/parse.h +++ b/gcc/fortran/parse.h @@ -28,6 +28,7 @@ enum gfc_compile_state COMP_NONE, COMP_PROGRAM, COMP_MODULE, COMP_SUBMODULE, COMP_SUBROUTINE, COMP_FUNCTION, COMP_BLOCK_DATA, COMP_INTERFACE, COMP_DERIVED, COMP_DERIVED_CONTAINS, COMP_BLOCK, COMP_ASSOCIATE, COMP_IF, + COMP_STRUCTURE, COMP_UNION, COMP_MAP, COMP_DO, COMP_SELECT, COMP_FORALL, COMP_WHERE, COMP_CONTAINS, COMP_ENUM, COMP_SELECT_TYPE, COMP_OMP_STRUCTURED_BLOCK, COMP_CRITICAL, COMP_DO_CONCURRENT }; @@ -58,6 +59,8 @@ extern gfc_state_data *gfc_state_stack; #define gfc_current_block() (gfc_state_stack->sym) #define gfc_current_state() (gfc_state_stack->state) +#define gfc_comp_struct(s) \ + ((s) == COMP_DERIVED || (s) == COMP_STRUCTURE || (s) == COMP_MAP) int gfc_check_do_variable (gfc_symtree *); bool gfc_find_state (gfc_compile_state); |