2009-07-09 Janus Weil <janus@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / fortran / dump-parse-tree.c

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index cfd8a7d..2a411d4 100644 (file)
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -544,7 +544,7 @@ show_expr (gfc_expr *p)
       if (p->value.function.name == NULL)
        {
          fprintf (dumpfile, "%s", p->symtree->n.sym->name);
-         if (is_proc_ptr_comp (p, NULL))
+         if (gfc_is_proc_ptr_comp (p, NULL))
            show_ref (p->ref);
          fputc ('[', dumpfile);
          show_actual_arglist (p->value.function.actual);
@@ -553,7 +553,7 @@ show_expr (gfc_expr *p)
       else
        {
          fprintf (dumpfile, "%s", p->value.function.name);
-         if (is_proc_ptr_comp (p, NULL))
+         if (gfc_is_proc_ptr_comp (p, NULL))
            show_ref (p->ref);
          fputc ('[', dumpfile);
          fputc ('[', dumpfile);