* [patch, fortran] PR 44678, BLOCK and SELECT TYPE with -fdump-parse-tree
@ 2010-06-26 22:51 Thomas Koenig
2010-06-26 23:06 ` Jerry DeLisle
0 siblings, 1 reply; 3+ messages in thread
From: Thomas Koenig @ 2010-06-26 22:51 UTC (permalink / raw)
To: fortran; +Cc: gcc-patches
[-- Attachment #1: Type: text/plain, Size: 432 bytes --]
Hello world,
the attached patch fixes a problem with -fdump-parse-tree, where BLOCKs
and SELECT TYPE lead to an ICE.
Currently regtesting; I don't expect any regressions because the
testsite does not use -fdump-parse-tree (maybe it should...)
OK for trunk if regtesting passes?
Thomas
2010-06-27 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/44678
* dump-parse-tree.c (show_code_node): Show namespace for
EXEC_BLOCK.
[-- Attachment #2: dump-parse-tree-1.diff --]
[-- Type: text/x-patch, Size: 758 bytes --]
Index: dump-parse-tree.c
===================================================================
--- dump-parse-tree.c (Revision 161427)
+++ dump-parse-tree.c (Arbeitskopie)
@@ -1177,6 +1177,7 @@ show_code_node (int level, gfc_code *c)
gfc_filepos *fp;
gfc_inquire *i;
gfc_dt *dt;
+ gfc_namespace *ns;
code_indent (level, c->here);
@@ -1376,6 +1377,15 @@ show_code_node (int level, gfc_code *c)
fputs ("ENDIF", dumpfile);
break;
+ case EXEC_BLOCK:
+ show_indent ();
+ fputs ("BLOCK ", dumpfile);
+ ns = c->ext.block.ns;
+ show_namespace (ns);
+ show_indent ();
+ fputs ("END BLOCK ", dumpfile);
+ break;
+
case EXEC_SELECT:
d = c->block;
fputs ("SELECT CASE ", dumpfile);
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [patch, fortran] PR 44678, BLOCK and SELECT TYPE with -fdump-parse-tree
2010-06-26 22:51 [patch, fortran] PR 44678, BLOCK and SELECT TYPE with -fdump-parse-tree Thomas Koenig
@ 2010-06-26 23:06 ` Jerry DeLisle
2010-06-27 7:34 ` Thomas Koenig
0 siblings, 1 reply; 3+ messages in thread
From: Jerry DeLisle @ 2010-06-26 23:06 UTC (permalink / raw)
To: Thomas Koenig; +Cc: fortran, gcc-patches
On 06/26/2010 03:12 PM, Thomas Koenig wrote:
> Hello world,
>
> the attached patch fixes a problem with -fdump-parse-tree, where BLOCKs
> and SELECT TYPE lead to an ICE.
>
> Currently regtesting; I don't expect any regressions because the
> testsite does not use -fdump-parse-tree (maybe it should...)
>
> OK for trunk if regtesting passes?
>
Yes OK, seems fairly safe.
Jerry
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [patch, fortran] PR 44678, BLOCK and SELECT TYPE with -fdump-parse-tree
2010-06-26 23:06 ` Jerry DeLisle
@ 2010-06-27 7:34 ` Thomas Koenig
0 siblings, 0 replies; 3+ messages in thread
From: Thomas Koenig @ 2010-06-27 7:34 UTC (permalink / raw)
To: Jerry DeLisle; +Cc: fortran, gcc-patches
Jerry DeLisle wrote:
> On 06/26/2010 03:12 PM, Thomas Koenig wrote:
> s?
> >
> Yes OK, seems fairly safe.
Sende fortran/ChangeLog
Sende fortran/dump-parse-tree.c
Ãbertrage Daten ..
Revision 161444 übertragen.
Thanks for the review!
Thomas
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2010-06-26 22:55 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-06-26 22:51 [patch, fortran] PR 44678, BLOCK and SELECT TYPE with -fdump-parse-tree Thomas Koenig
2010-06-26 23:06 ` Jerry DeLisle
2010-06-27 7:34 ` Thomas Koenig
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).