diff options
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index da3a0d0..8e8591a 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -342,7 +342,7 @@ getdecls (void) return current_binding_level->names; } -/* Enter a new binding level. */ +/* Enter a new binding level. */ void pushlevel (void) @@ -410,7 +410,7 @@ poplevel (int keep, int functionbody) current_binding_level = current_binding_level->level_chain; if (functionbody) - /* This is the top level block of a function. */ + /* This is the top level block of a function. */ DECL_INITIAL (current_function_decl) = block_node; else if (current_binding_level == global_binding_level) /* When using gfc_start_block/gfc_finish_block from middle-end hooks, |