From d3fcc995c27e851a73a433b6ffd967563af080cd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= <tobi@gcc.gnu.org>
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 <tobias.schlueter@physik.uni-muenchen.de>
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/resolve.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'gcc/fortran/resolve.c')
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 03851f5..a107095 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -3714,7 +3714,7 @@ resolve_symbol (gfc_symbol * sym)
if (sym->ts.type == BT_UNKNOWN)
{
if (sym->attr.flavor == FL_VARIABLE || sym->attr.flavor == FL_PARAMETER)
- gfc_set_default_type (sym, 0, NULL);
+ gfc_set_default_type (sym, 1, NULL);
if (sym->attr.flavor == FL_PROCEDURE && sym->attr.function)
{
--
cgit v1.1