diff options
author | Jakub Jelinek <jakub@redhat.com> | 2006-01-17 17:15:47 +0000 |
---|---|---|
committer | Jakub Jelinek <jakub@redhat.com> | 2006-01-17 17:15:47 +0000 |
commit | 7897ccbd4dd3449a0c25f35282720d158d23e415 (patch) | |
tree | 4a3bb95749aa678c78b7e815aef2350fbc6c8e06 /gcc/fortran/scanner.c | |
parent | ca93945f297de76774958761e969139d53a7dd57 (diff) |
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
Diffstat (limited to 'gcc/fortran/scanner.c')
-rw-r--r-- | gcc/fortran/scanner.c | 8 |
1 files changed, 5 insertions, 3 deletions
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; |