OSDN Git Service

* f95-lang.c (poplevel): Don't clear BLOCK_VARS if functionbody.
authorjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 7 Oct 2008 18:15:32 +0000 (18:15 +0000)
committerjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 7 Oct 2008 18:15:32 +0000 (18:15 +0000)
commite50042428eac40d5b71fbd5a3fb43450e27e337d
tree2678f9917d4d74b4f583c1caea68711e28016389
parentbbc59868868ded7e9f6191911987ebbce69d6a62
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140945 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/f95-lang.c
gcc/fortran/trans-decl.c