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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 21 |
2 files changed, 26 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 409992e..a122e70 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 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'); |