scanner.c (load_line): Add pbuflen argument, don't make buflen static.
authorJakub Jelinek <jakub@redhat.com>
Thu, 7 Jul 2005 15:58:16 +0000 (17:58 +0200)
committerJakub Jelinek <jakub@gcc.gnu.org>
Thu, 7 Jul 2005 15:58:16 +0000 (17:58 +0200)
commitd1e3d6ae11f6d436d0bbbc295e4d5a93a055829d
tree99bb771816d3b38f2aaf8d4ae3fbb546935bc476
parent4c3a6ca189d0bf3a62b4f529275e0a666543650c
scanner.c (load_line): Add pbuflen argument, don't make buflen static.

* scanner.c (load_line): Add pbuflen argument, don't make
buflen static.  If maxlen == 0 or preprocessor_flag,
don't truncate at buflen, but at maxlen.  In xrealloc add
1 byte at the end for the terminating '\0'.  Don't fill
with spaces up to buflen, but gfc_option.fixed_line_length.
(load_file): Adjust load_line caller.  Add line_len variable.

* gfortran.dg/longline.f: New test.

From-SVN: r101718
gcc/fortran/ChangeLog
gcc/fortran/scanner.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/longline.f [new file with mode: 0644]