| commit | f0d4969f423ca274b5144416562c057cf40169a6 | |
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Fri, 21 Dec 2007 21:20:38 +0000 (21 21:20 +0000) | ||
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Fri, 21 Dec 2007 21:20:38 +0000 (21 21:20 +0000) | ||
| tree | 122845e14ab1b5b0cedf84997593e4f37ed7cd37 | treesnapshot (tar.gz zip) |
| parent | 705bf4b55006cb9047dbf2f1d49ba25563b404ad | commitdiff |
2007-12-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34438
* trans-decl.c (gfc_finish_var_decl): Do not mark derived types
with default initializers as TREE_STATIC unless they are in the
main program scope.
(gfc_get_symbol_decl): Pass derived types with a default
initializer to gfc_defer_symbol_init.
(init_default_dt): Apply default initializer to a derived type.
(init_intent_out_dt): Call init_default_dt.
(gfc_trans_deferred_vars): Ditto.
* module.c (read_module): Check sym->module is there before
using it in a string comparison.
2007-12-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34438
* gfortran.dg/default_initialization_3.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131124 138bc75d-0d04-0410-961f-82ee72b054a4
PR fortran/34438
* trans-decl.c (gfc_finish_var_decl): Do not mark derived types
with default initializers as TREE_STATIC unless they are in the
main program scope.
(gfc_get_symbol_decl): Pass derived types with a default
initializer to gfc_defer_symbol_init.
(init_default_dt): Apply default initializer to a derived type.
(init_intent_out_dt): Call init_default_dt.
(gfc_trans_deferred_vars): Ditto.
* module.c (read_module): Check sym->module is there before
using it in a string comparison.
2007-12-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34438
* gfortran.dg/default_initialization_3.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131124 138bc75d-0d04-0410-961f-82ee72b054a4