diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-11-25 22:04:59 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-11-25 22:04:59 +0000 |
| commit | 3c82e013c20c59f1d82c29efa39a1cd854ba5433 (patch) | |
| tree | bc1d2222c6b14d7dde81673bb184b46209dc5d91 /gcc/fortran/trans.h | |
| parent | 79031933c4e74409ed80318891624c06c3a486b0 (diff) | |
| download | gcc-3c82e013c20c59f1d82c29efa39a1cd854ba5433.tar.gz | |
2010-11-25 Janus Weil <janus@gcc.gnu.org>
PR fortran/46581
* trans.h (gfc_process_block_locals): Removed second argument.
* trans-decl.c (trans_associate_var): Moved to trans-stmt.c.
(gfc_trans_deferred_vars): Skip ASSOCIATE variables.
(gfc_process_block_locals): Don't mark associate names to be
initialized.
* trans-stmt.c (trans_associate_var): Moved here from trans-decl.c.
(gfc_trans_block_construct): Call 'trans_associate_var' from here
to make sure SELECT TYPE with associate-name is treated correctly.
2010-11-25 Janus Weil <janus@gcc.gnu.org>
PR fortran/46581
* gfortran.dg/select_type_19.f03: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167154 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 6c944df762b..b5e30ff1cec 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -554,7 +554,7 @@ tree gfc_build_library_function_decl_with_spec (tree name, const char *spec, tree rettype, int nargs, ...); /* Process the local variable decls of a block construct. */ -void gfc_process_block_locals (gfc_namespace*, gfc_association_list*); +void gfc_process_block_locals (gfc_namespace*); /* Output initialization/clean-up code that was deferred. */ void gfc_trans_deferred_vars (gfc_symbol*, gfc_wrapped_block *); |