diff options
Diffstat (limited to 'gcc/fortran/scanner.c')
| -rw-r--r-- | gcc/fortran/scanner.c | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 8d65067..757037c 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -324,19 +324,16 @@ add_path_to_list (gfc_directorylist **list, const char *path, if (stat (q, &st)) { if (errno != ENOENT) - gfc_warning_now ("Include directory \"%s\": %s", path, - xstrerror(errno)); - else - { - /* FIXME: Also support -Wmissing-include-dirs. */ - if (warn) - gfc_warning_now ("Nonexistent include directory \"%s\"", path); - } + gfc_warning_cmdline ("Include directory %qs: %s", path, + xstrerror(errno)); + else if (warn) + gfc_warning_cmdline (OPT_Wmissing_include_dirs, + "Nonexistent include directory %qs", path); return; } else if (!S_ISDIR (st.st_mode)) { - gfc_warning_now ("\"%s\" is not a directory", path); + gfc_warning_cmdline ("%qs is not a directory", path); return; } @@ -1925,7 +1922,7 @@ load_file (const char *realfilename, const char *displayedname, bool initial) input = gfc_open_file (realfilename); if (input == NULL) { - gfc_error_now ("Can't open file '%s'", filename); + gfc_error_cmdline ("Can't open file %qs", filename); return false; } } |