From d3fcc995c27e851a73a433b6ffd967563af080cd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Fri, 9 Jul 2004 16:53:45 +0200 Subject: re PR fortran/15481 ([meta-bugs] frontend adds superfluous symbols to namespaces) fortran/ 2004-07-09 Tobias Schlueter PR fortran/15481 PR fortran/13372 PR fortran/13575 PR fortran/15978 * module.c (write_symbol, write_symtree): Remove workaround. * primary.c (match_actual_arglist): Enhance comment. (gfc_match_rvalue): Handle function call with first argument a keyword argument correctly. * resolve.c (resolve_symbol): Change call to gfc_set_default_type to issue error if no implicit type can be found. * trans-decl.c (gfc_create_module_variable): Remove workaround. testsuite/ PR fortran/15481 PR fortran/13372 PR fortran/13575 PR fortran/15978 * gfortran.fortran-torture/compile/implicit_2.f90: New test. Also fixed David Billinghursts ChangeLog entry to use GMT From-SVN: r84373 --- gcc/fortran/module.c | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'gcc/fortran/module.c') diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 7f720ba..9813b54 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3189,13 +3189,6 @@ write_symbol (int n, gfc_symbol * sym) if (sym->attr.flavor == FL_UNKNOWN || sym->attr.flavor == FL_LABEL) gfc_internal_error ("write_symbol(): bad module symbol '%s'", sym->name); - - if (sym->attr.flavor == FL_VARIABLE && sym->ts.type == BT_UNKNOWN) - /* TODO: this is a workaround for some of the problems in PR15481, - and fixes the dependent bug PR13372. In an ideal frontend, this - should never happen. */ - return; - mio_integer (&n); mio_internal_string (sym->name); @@ -3319,12 +3312,6 @@ write_symtree (gfc_symtree * st) && !sym->attr.subroutine && !sym->attr.function)) return; - if (sym->attr.flavor == FL_VARIABLE && sym->ts.type == BT_UNKNOWN) - /* TODO: this is a workaround for some of the problems in PR15481, - and fixes the dependent bug PR13372. In an ideal frontend, this - should never happen. */ - return; - if (check_unique_name (st->name)) return; -- cgit v1.1