diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a4897da6434bbbf1513ae87dd4e9bfc45e10fa0b..5f17e5edc6b7d6c143c1bf44260b7593b203f036 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-07-14  Jakub Jelinek  <jakub@redhat.com>
+
+	PR fortran/22417
+	* scanner.c (preprocessor_line): Don't treat flag 3 as the start of a new
+	file.  Fix file left but not entered warning.
+
 2005-07-14  Feng Wang  <fengwang@nudt.edu.cn>
 	Steven G. Kargl  <kargls@comcast.net>
 
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index fe28820a62a66b97ea68f3362e210813c45ef50a..eee3a684fc3ebbdef090ebe28db648154c917296 100644
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -899,7 +899,7 @@ preprocessor_line (char *c)
 
   /* Interpret flags.  */
 
-  if (flag[1] || flag[3]) /* Starting new file.  */
+  if (flag[1]) /* Starting new file.  */
     {
       f = get_file (filename, LC_RENAME);
       f->up = current_file;
@@ -908,15 +908,15 @@ preprocessor_line (char *c)
 
   if (flag[2]) /* Ending current file.  */
     {
-      if (strcmp (current_file->filename, filename) != 0)
+      if (!current_file->up
+	  || strcmp (current_file->up->filename, filename) != 0)
 	{
 	  gfc_warning_now ("%s:%d: file %s left but not entered",
 			   current_file->filename, current_file->line,
 			   filename);
 	  return;
 	}
-      if (current_file->up)
-	current_file = current_file->up;
+      current_file = current_file->up;
     }
 
   /* The name of the file can be a temporary file produced by
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b3585c7d75ba695bfb21c6a15f89cb69c4319068..d0c2c653efab2fdf402bd25b3d8dd05c3e40ce48 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2005-07-14  Jakub Jelinek  <jakub@redhat.com>
+
+	PR fortran/22417
+	* gfortran.dg/g77/cpp5.F: New test.
+	* gfortran.dg/g77/cpp5.h: New file.
+	* gfortran.dg/g77/cpp5inc.h: New file.
+
 2005-07-12  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR libfortran/16435
diff --git a/gcc/testsuite/gfortran.dg/g77/cpp5.F b/gcc/testsuite/gfortran.dg/g77/cpp5.F
new file mode 100644
index 0000000000000000000000000000000000000000..8e35d78ea381658e737caf90cc67e847d91d0bc4
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/cpp5.F
@@ -0,0 +1,4 @@
+	! { dg-do run }
+#include "cpp5.h"
+	IF (FOO().NE.1) CALL ABORT ()
+	END
diff --git a/gcc/testsuite/gfortran.dg/g77/cpp5.h b/gcc/testsuite/gfortran.dg/g77/cpp5.h
new file mode 100644
index 0000000000000000000000000000000000000000..2e77f6a692f89474070120f88b57bb72032b0452
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/cpp5.h
@@ -0,0 +1,3 @@
+	FUNCTION FOO()
+#include "cpp5inc.h"
+	END FUNCTION
diff --git a/gcc/testsuite/gfortran.dg/g77/cpp5inc.h b/gcc/testsuite/gfortran.dg/g77/cpp5inc.h
new file mode 100644
index 0000000000000000000000000000000000000000..3cc86cd0d180fe463f18c3fe7f47209475df3ba8
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/cpp5inc.h
@@ -0,0 +1 @@
+	FOO = 1