From caf4d6e06910095bd455d53f72a6094fff41c66c Mon Sep 17 00:00:00 2001
From: Jakub Jelinek <jakub@redhat.com>
Date: Mon, 2 Apr 2001 23:23:28 +0200
Subject: lex.c (ffelex_hash_): Avoid eating one whole line after #line.

	* lex.c (ffelex_hash_): Avoid eating one whole line after
	#line.

	* g77.f-torture/compile/20010321-1.f: New test.

From-SVN: r41015
---
 gcc/f/lex.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'gcc/f/lex.c')

diff --git a/gcc/f/lex.c b/gcc/f/lex.c
index ea0ef05..d5aaa15 100644
--- a/gcc/f/lex.c
+++ b/gcc/f/lex.c
@@ -1412,6 +1412,12 @@ ffelex_hash_ (FILE *finput)
 	  input_filename = old_input_filename;
 	  error ("Use `#line ...' instead of `# ...' in first line");
 	}
+      if (c == '\n' || c == EOF)
+	{
+	  if (token != NULL && !ffelex_kludge_flag_)
+	    ffelex_token_kill (token);
+	  return c;
+	}
     }
   else
     error ("invalid #-line");
-- 
cgit v1.1