OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

dump-parse-tree.c (gfc_show_equiv): New function.

Browse Source 
* dump-parse-tree.c (gfc_show_equiv): New function.
	(gfc_show_namespace): Use it.

From-SVN: r82136
This commit is contained in:
Paul Brook 2004-05-22 15:52:42 +00:00 committed by Paul Brook
parent 2dec00bf99
commit 1854117e11
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2004-05-22 Pau Brook <paul@codesourcery.com>
* dump-parse-tree.c (gfc_show_equiv): New function.
(gfc_show_namespace): Use it.
2004-05-22 Victor Leikehman <lei@haifasphere.co.il>
PR fortran/13249

21
gcc/fortran/dump-parse-tree.c
View File

@ -1384,6 +1384,23 @@ gfc_show_code_node (int level, gfc_code * c)
}
/* Show and equivalence chain. */
static void
gfc_show_equiv (gfc_equiv *eq)
{
show_indent ();
gfc_status ("Equivalence: ");
while (eq)
{
gfc_show_expr (eq->expr);
eq = eq->eq;
if (eq)
gfc_status (", ");
}
}
/* Show a freakin' whole namespace. */
void
@ -1392,6 +1409,7 @@ gfc_show_namespace (gfc_namespace * ns)
gfc_interface *intr;
gfc_namespace *save;
gfc_intrinsic_op op;
gfc_equiv *eq;
int i;
save = gfc_current_ns;
@ -1450,6 +1468,9 @@ gfc_show_namespace (gfc_namespace * ns)
gfc_traverse_user_op (ns, show_uop);
}
}
for (eq = ns->equiv; eq; eq = eq->next)
gfc_show_equiv (eq);
gfc_status_char ('\n');
gfc_status_char ('\n');