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/parse.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/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 20777fd..8d30bee 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -110,7 +110,7 @@ decode_specification_statement (void) match ("import", gfc_match_import, ST_IMPORT); match ("use", gfc_match_use, ST_USE); - if (gfc_numeric_ts (&gfc_current_block ()->ts)) + if (gfc_current_block ()->ts.type != BT_DERIVED) goto end_of_block; match (NULL, gfc_match_st_function, ST_STATEMENT_FUNCTION); |