]> git.ipfire.org Git - thirdparty/gcc.git/commit - gcc/fortran/f95-lang.cc
f95-lang.c (poplevel): Don't clear BLOCK_VARS if functionbody.
authorJakub Jelinek <jakub@redhat.com>
Tue, 7 Oct 2008 18:15:32 +0000 (20:15 +0200)
committerJakub Jelinek <jakub@gcc.gnu.org>
Tue, 7 Oct 2008 18:15:32 +0000 (20:15 +0200)
commitc7c79a09d6abdcfe54b67c54374ca538665152c5
tree2678f9917d4d74b4f583c1caea68711e28016389
parenta107f086365bc6adb37c6d81f029af3d7fc73c52
f95-lang.c (poplevel): Don't clear BLOCK_VARS if functionbody.

* f95-lang.c (poplevel): Don't clear BLOCK_VARS if functionbody.
* trans-decl.c (gfc_build_qualified_array): Build accurate debug type
even if nest.
(build_entry_thunks, gfc_generate_function_code,
gfc_generate_constructors): Ensure DECL_SAVED_TREE is a BIND_EXPR
with DECL_INITIAL as its BLOCK.

From-SVN: r140945
gcc/fortran/ChangeLog
gcc/fortran/f95-lang.c
gcc/fortran/trans-decl.c