From 7897ccbd4dd3449a0c25f35282720d158d23e415 Mon Sep 17 00:00:00 2001
From: Jakub Jelinek <jakub@redhat.com>
Date: Tue, 17 Jan 2006 17:15:47 +0000
Subject: svn merge -r109401:109815
 svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_1-branch

git-svn-id: https://gcc.gnu.org/svn/gcc/branches/redhat/gcc-4_1-branch@109828 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/fortran/scanner.c | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'gcc/fortran/scanner.c')

diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index 2317f02e896..261f2ec1848 100644
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -972,11 +972,13 @@ load_line (FILE * input, char **pbuf, int *pbuflen)
 
   /* Pad lines to the selected line length in fixed form.  */
   if (gfc_current_form == FORM_FIXED
-      && gfc_option.fixed_line_length > 0
+      && gfc_option.fixed_line_length != 0
       && !preprocessor_flag
       && c != EOF)
-    while (i++ < gfc_option.fixed_line_length)
-      *buffer++ = ' ';
+    {
+      while (i++ < maxlen)
+	*buffer++ = ' ';
+    }
 
   *buffer = '\0';
   *pbuflen = buflen;
-- 
cgit v1.2.3