From: abensonca <abensonca@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 1 May 2019 19:47:51 +0000 (+0000)
Subject: * module.c (write_module): Initialize module_column before writing
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=61fd42acd0629492b86d504fcd2e8d495e49371f;p=thirdparty%2Fgcc.git

* 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 2d76d9cb5bb5..387bf1b4dda2 100644
--- 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 3e1ffedd8ee8..9c8ae13e0efd 100644
--- 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 ();