diff options
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 5c556de..2ccca09 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -341,7 +341,7 @@ GTY(()) /* For each level (except the global one), a chain of BLOCK nodes for all the levels that were entered and exited one level down from this one. */ tree blocks; - /* The binding level containing this one (the enclosing binding level). */ + /* The binding level containing this one (the enclosing binding level). */ struct binding_level *level_chain; }; @@ -436,7 +436,7 @@ poplevel (int keep, int reverse, int functionbody) subblock_node = TREE_CHAIN (subblock_node)) if (DECL_NAME (subblock_node) != 0) /* If the identifier was used or addressed via a local extern decl, - don't forget that fact. */ + don't forget that fact. */ if (DECL_EXTERNAL (subblock_node)) { if (TREE_USED (subblock_node)) @@ -489,7 +489,7 @@ insert_block (tree block) } /* Records a ..._DECL node DECL as belonging to the current lexical scope. - Returns the ..._DECL node. */ + Returns the ..._DECL node. */ tree pushdecl (tree decl) @@ -507,7 +507,7 @@ pushdecl (tree decl) TREE_CHAIN (decl) = current_binding_level->names; current_binding_level->names = decl; - /* For the declartion of a type, set its name if it is not already set. */ + /* For the declartion of a type, set its name if it is not already set. */ if (TREE_CODE (decl) == TYPE_DECL && TYPE_NAME (TREE_TYPE (decl)) == 0) { @@ -575,7 +575,7 @@ gfc_init_decl_processing (void) /* Build common tree nodes. char_type_node is unsigned because we only use it for actual characters, not for INTEGER(1). Also, we - want double_type_node to actually have double precision. */ + want double_type_node to actually have double precision. */ build_common_tree_nodes (false, false); set_sizetype (long_unsigned_type_node); build_common_tree_nodes_2 (0); |