From: Andrew Benson <abensonca@gmail.com>
Date: Wed, 1 May 2019 19:47:51 +0000 (+0000)
Subject: module.c (write_module): Initialize module_column before writing module to ensure... 
X-Git-Tag: misc/cutover-git~5819
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9f3a481e08cbcce98793b3c7a78045e4e9621493;p=thirdparty%2Fgcc.git

module.c (write_module): Initialize module_column before writing module to ensure line break occurs at...

* module.c (write_module): Initialize module_column before writing
module to ensure line break occurs at correct column

From-SVN: r270777
---

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 ();