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

dump-parse-tree.c (show_code_node): Print association list of a block if present. 

2016-02-28  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* dump-parse-tree.c (show_code_node):  Print association
	list of a block if present.  Handle EXEC_END_BLOCK.

From-SVN: r233796
This commit is contained in:
Thomas Koenig 2016-02-28 22:24:27 +00:00
parent b2fd537394
commit 3070e826ba
2 changed files with 17 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 @@
2016-02-28 Thomas Koenig <tkoenig@gcc.gnu.org>
* dump-parse-tree.c (show_code_node): Print association
list of a block if present. Handle EXEC_END_BLOCK.
2016-02-28 Harald Anlauf <anlauf@gmx.de>
Jerry DeLisle <jvdelisle@gcc.gnu.org>

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

@ -1773,6 +1773,7 @@ show_code_node (int level, gfc_code *c)
{
const char* blocktype;
gfc_namespace *saved_ns;
gfc_association_list *alist;
if (c->ext.block.assoc)
blocktype = "ASSOCIATE";
@ -1780,6 +1781,12 @@ show_code_node (int level, gfc_code *c)
blocktype = "BLOCK";
show_indent ();
fprintf (dumpfile, "%s ", blocktype);
for (alist = c->ext.block.assoc; alist; alist = alist->next)
{
fprintf (dumpfile, " %s = ", alist->name);
show_expr (alist->target);
}
++show_level;
ns = c->ext.block.ns;
saved_ns = gfc_current_ns;
@ -1793,6 +1800,11 @@ show_code_node (int level, gfc_code *c)
break;
}
case EXEC_END_BLOCK:
/* Only come here when there is a label on an
END ASSOCIATE construct. */
break;
case EXEC_SELECT:
d = c->block;
fputs ("SELECT CASE ", dumpfile);