diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-03-19 20:28:38 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-03-19 20:28:38 +0000 |
| commit | fb98f25ce6d5efe656e7ed9b787b12a7183905a6 (patch) | |
| tree | a56f2555dbb81df15f1e6a8044544b2a448dc47e /gcc/fortran/scanner.c | |
| parent | 5c78f37c6a853f6c37ae8cac47249752c7302b97 (diff) | |
2016-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
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
Diffstat (limited to 'gcc/fortran/scanner.c')
| -rw-r--r-- | gcc/fortran/scanner.c | 2 |
1 files changed, 1 insertions, 1 deletions
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", |