diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-05-22 15:52:42 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-22 15:52:42 +0000 |
| commit | 1854117e11b923066d0ecbc800c9db6ec064c9d7 (patch) | |
| tree | 4c4c2c36262df34420a19974a813a7abf6873f35 /gcc/fortran/dump-parse-tree.c | |
| parent | 2dec00bf998cc3122b00453832533f6b80ce3059 (diff) | |
| download | gcc-1854117e11b923066d0ecbc800c9db6ec064c9d7.zip gcc-1854117e11b923066d0ecbc800c9db6ec064c9d7.tar.gz gcc-1854117e11b923066d0ecbc800c9db6ec064c9d7.tar.bz2 | |
dump-parse-tree.c (gfc_show_equiv): New function.
* dump-parse-tree.c (gfc_show_equiv): New function.
(gfc_show_namespace): Use it.
From-SVN: r82136
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 5f1db22..64e4a81 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -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'); |