* module.c (write_module): Initialize module_column before writing

module to ensure line break occurs at correct column

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@270777 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2d76d9cb5bb56257c068d84316f0fe9ab010f129..387bf1b4dda20ec3d97dc8dd74bbd07bdc784853 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2019-05-01  Andrew Benson  <abensonca@gmail.com>
+
+       * module.c (write_module): Initialize module_column before writing
+       module to ensure line break occurs at correct column.
+
 2019-05-01 Dominique d'Humieres  <dominiq@gcc.gnu.org>
 
        PR fortran/60144

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 3e1ffedd8ee8c23cb121a42d8b34e92fcf4b6cd8..9c8ae13e0efd4ada226d7ffae36591450f0ade49 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -6052,6 +6052,9 @@ write_module (void)
 {
   int i;
 
+  /* Initialize the column counter. */
+  module_column = 1;
+  
   /* Write the operator interfaces.  */
   mio_lparen ();