dump_parse_tree.c (show_components): Show ALLOCATABLE.

2010-12-29  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* dump_parse_tree.c (show_components):  Show
	ALLOCATABLE.

From-SVN: r168324

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 759db8311bdb17046232777772bab30daababd40..e837b065c33df2630d8806a2bb489bf4bd1e5f8b 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-29  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       * dump_parse_tree.c (show_components):  Show
+       ALLOCATABLE.
+
 2010-12-29  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/46838

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 90edc04dc1eadd7c289ce9dfc4c14697340ae82f..d4b1cb5c522fbf8b0e084a3f37ee512df6685a6c 100644 (file)
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -694,6 +694,8 @@ show_components (gfc_symbol *sym)
     {
       fprintf (dumpfile, "(%s ", c->name);
       show_typespec (&c->ts);
+      if (c->attr.allocatable)
+       fputs (" ALLOCATABLE", dumpfile);
       if (c->attr.pointer)
        fputs (" POINTER", dumpfile);
       if (c->attr.proc_pointer)