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/ChangeLog

+2001-04-02  Jakub Jelinek  <jakub@redhat.com>
+
+	* lex.c (ffelex_hash_): Avoid eating one whole line after
+	#line.
+
 2001-04-02  Zack Weinberg  <zackw@stanford.edu>
 
 	* genattr.c, gencheck.c, gencodes.c, genconfig.c, genflags.c,

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");

gcc/testsuite/ChangeLog

 2001-04-02  Jakub Jelinek  <jakub@redhat.com>
 
+	* g77.f-torture/compile/20010321-1.f: New test.
+
+2001-04-02  Jakub Jelinek  <jakub@redhat.com>
+
 	* gcc.c-torture/compile/20010329-1.c: New test.
 
 2001-04-02  Jakub Jelinek  <jakub@redhat.com>

gcc/testsuite/g77.f-torture/compile/20010321-1.f

+# 1 "20010321-1.f"
+      SUBROUTINE TWOEXP
+# 1 "include/implicit.h" 1 3
+      IMPLICIT DOUBLE PRECISION (A-H)
+# 3 "20010321-1.f" 2 3
+      LOGICAL ANTI
+      ANTI = .FALSE.
+      END