diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-01-30 06:56:10 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-01-30 06:56:10 +0000 |
| commit | a99d95a270cabbbf43024c32ac6225da13e4aad1 (patch) | |
| tree | 0114132c0dd451283cabb7a4b589fc60b10dae25 /gcc/fortran/symbol.c | |
| parent | 7ae252ab69e5498454d5ef1592eabd503353d17e (diff) | |
| download | gcc-a99d95a270cabbbf43024c32ac6225da13e4aad1.zip gcc-a99d95a270cabbbf43024c32ac6225da13e4aad1.tar.gz gcc-a99d95a270cabbbf43024c32ac6225da13e4aad1.tar.bz2 | |
re PR fortran/34975 (Bogus error with USEing modules)
2008-01-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34975
* symbol.c (gfc_delete_symtree, gfc_undo_symbols): Rename
delete_symtree to gfc_delete_symtree.
* gfortran.h : Add prototype for gfc_delete_symtree.
* module.c (load_generic_interfaces): Transfer symbol to a
unique symtree and delete old symtree, instead of renaming.
(read_module): The rsym and the found symbol are the same, so
the found symtree can be deleted.
PR fortran/34429
* decl.c (match_char_spec): Remove the constraint on deferred
matching of functions and free the length expression.
delete_symtree to gfc_delete_symtree.
(gfc_match_type_spec): Whitespace.
(gfc_match_function_decl): Defer characteristic association for
all types except BT_UNKNOWN.
* parse.c (decode_specification_statement): Only derived type
function matching is delayed to the end of specification.
2008-01-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34975
* gfortran.dg/use_only_3.f90: New test.
* gfortran.dg/use_only_3.inc: Modules for new test.
PR fortran/34429
* gfortran.dg/function_charlen_2.f90: New test.
From-SVN: r131956
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index a802fa1..e97684f 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -2153,8 +2153,8 @@ gfc_new_symtree (gfc_symtree **root, const char *name) /* Delete a symbol from the tree. Does not free the symbol itself! */ -static void -delete_symtree (gfc_symtree **root, const char *name) +void +gfc_delete_symtree (gfc_symtree **root, const char *name) { gfc_symtree st, *st0; @@ -2609,7 +2609,7 @@ gfc_undo_symbols (void) } } - delete_symtree (&p->ns->sym_root, p->name); + gfc_delete_symtree (&p->ns->sym_root, p->name); p->refs--; if (p->refs < 0) |