Skip to content
Snippets Groups Projects
Commit d1e3d6ae authored by Jakub Jelinek's avatar Jakub Jelinek Committed by Jakub Jelinek
Browse files

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
parent 4c3a6ca1
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment