KJ16609/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2026-02-22 03:46:53 -05:00
Code Issues Packages Projects Releases Wiki Activity

backport: re PR fortran/24783 ([4.1 and 4.2 only] Implicit none in module overwrite explicit in procedure)

Browse Source 
2007-02-10  Bernhard Fischer  <aldot@gcc.gnu.org>

	Backport from trunk
	PR fortran/24783
	* resolve.c (resolve_variable): Get the implicit type from the
	symbols namespace rather than the default namespace. Fix whitespace.
	(resolve_formal_arglist, resolve_equivalence): Fix typo.

From-SVN: r121804
This commit is contained in:
Bernhard Fischer
2007-02-11 00:25:55 +01:00
committed by Jerry DeLisle
parent 887ab8335d
commit 2888c8d492
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View File

@@ -1,3 +1,11 @@
2007-02-10 Bernhard Fischer <aldot@gcc.gnu.org>
Backport from trunk
PR fortran/24783
* resolve.c (resolve_variable): Get the implicit type from the
symbols namespace rather than the default namespace. Fix whitespace.
(resolve_formal_arglist, resolve_equivalence): Fix typo.
2007-02-05 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/30605

8
gcc/fortran/resolve.c
View File

@@ -239,7 +239,7 @@ resolve_formal_arglist (gfc_symbol * proc)
{
gfc_error
("Character-valued argument '%s' of statement function at "
"%L must has constant length",
"%L must have constant length",
sym->name, &sym->declared_at);
continue;
}
@@ -3121,7 +3121,7 @@ resolve_variable (gfc_expr * e)
else
{
/* Must be a simple variable reference. */
if (gfc_set_default_type (sym, 1, NULL) == FAILURE)
if (gfc_set_default_type (sym, 1, sym->ns) == FAILURE)
return FAILURE;
e->ts = sym->ts;
}
@@ -6198,11 +6198,9 @@ resolve_symbol (gfc_symbol * sym)
case FL_PARAMETER:
if (resolve_fl_parameter (sym) == FAILURE)
return;
break;
default:
break;
}
@@ -6924,7 +6922,7 @@ resolve_equivalence (gfc_equiv *eq)
{
if (value_name != NULL)
{
gfc_error ("Initialized objects '%s' and '%s' cannot both "
gfc_error ("Initialized objects '%s' and '%s' cannot both "
"be in the EQUIVALENCE statement at %L",
value_name, sym->name, &e->where);
continue;