diff options
Diffstat (limited to 'gcc/f/com.c')
| -rw-r--r-- | gcc/f/com.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index 198a1f719d2..d7ff94a4ca7 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -15174,6 +15174,10 @@ set_block (block) register tree block; { current_binding_level->this_block = block; + current_binding_level->names = chainon (current_binding_level->names, + BLOCK_VARS (block)); + current_binding_level->blocks = chainon (current_binding_level->blocks, + BLOCK_SUBBLOCKS (block)); } /* ~~gcc/tree.h *should* declare this, because toplev.c references it. */ |