longline.f
300 Bytes
-
scanner.c (load_line): Add pbuflen argument, don't make buflen static. · d1e3d6ae
* 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
Jakub Jelinek committed