From fb98f25ce6d5efe656e7ed9b787b12a7183905a6 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Sat, 19 Mar 2016 20:28:38 +0000 Subject: [PATCH] 2016-03-19 Jerry DeLisle PR fortran/69043 * scanner.c (load_file): Update to use S_ISREG macro. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@234352 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/scanner.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 105e7b4e680d..dac67d1fc845 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2016-03-19 Jerry DeLisle + + PR fortran/69043 + * scanner.c (load_file): Update to use S_ISREG macro. + 2016-03-17 Thomas Schwinge * gfortran.h (enum gfc_omp_map_op): Rename OMP_MAP_FORCE_DEALLOC diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 33d96d88d922..f4dedd69757a 100644 --- a/gcc/fortran/scanner.c +++ b/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", -- 2.47.3