diff mbox series

[fortran,committed] Fix PR 83803

Message ID 02b010c2-ada3-dc49-9274-e7adad0e077c@netcologne.de
State New
Headers show
Series [fortran,committed] Fix PR 83803 | expand

Commit Message

Thomas Koenig Jan. 13, 2018, 1:29 p.m. UTC 
Hello world,

I have committed the patch below as obvious. This one had
the distinction that two people came up with exactly the
same pach independently :-)

Regards

	Thomas

2018-01-13  Thomas Koenig <tkoenig@gcc.gnu.org>
         <emsr@gcc.gnu.org>

         PR fortran/83803
         * dump-parse-tree.c (write_
diff mbox series

Patch

Index: dump-parse-tree.c
===================================================================
--- dump-parse-tree.c	(Revision 256605)
+++ dump-parse-tree.c	(Arbeitskopie)
@@ -3194,9 +3194,10 @@  write_proc (gfc_symbol *sym)
       if (rok == T_WARN)
 	fputs(" /* WARNING: non-interoperable KIND */ ", dumpfile);
 
-      fputs (f->next ? ", " : ")", dumpfile);
+      if (f->next)
+	fputs(", ", dumpfile);
     }
-  fputs (";\n", dumpfile);
+  fputs (");\n", dumpfile);
 }