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 <tkoe...@gcc.gnu.org>
        <e...@gcc.gnu.org>

        PR fortran/83803
        * dump-parse-tree.c (write_
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);
 }
 
 

Reply via email to