re PR fortran/69043 (Trying to include a directory causes an infinite loop)

2016-03-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/69043
	* scanner.c (load_file): Update to use S_ISREG macro.

From-SVN: r234352

gcc/fortran/ChangeLog

+2016-03-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/69043
+	* scanner.c (load_file): Update to use S_ISREG macro.
+
 2016-03-17  Thomas Schwinge  <thomas@codesourcery.com>
 
 	* gfortran.h (enum gfc_omp_map_op): Rename OMP_MAP_FORCE_DEALLOC

gcc/fortran/scanner.c

@@ -2246,7 +2246,7 @@ load_file (const char *realfilename, const char *displayedname, bool initial)
 	  return false;
 	}
       stat_result = stat (realfilename, &st);
-      if (stat_result == 0 && !(st.st_mode & S_IFREG))
+      if (stat_result == 0 && !S_ISREG(st.st_mode))
 	{
 	  fprintf (stderr, "%s:%d: Error: Included path '%s'"
 		   " is not a regular file\n",