diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2012-08-04 11:26:56 -0700 |
|---|---|---|
| committer | H.J. Lu <hjl@gcc.gnu.org> | 2012-08-04 11:26:56 -0700 |
| commit | 57bdf399d42c0c73c5d18409e1474f5dd69ba131 (patch) | |
| tree | becf7aac72fd0bf194f79a9bcc1fb0bb2f9d38db /gcc/fortran/scanner.c | |
| parent | 6f34864a43e8ce45fedaffc62ce2432bb100eb10 (diff) | |
| download | gcc-57bdf399d42c0c73c5d18409e1474f5dd69ba131.zip gcc-57bdf399d42c0c73c5d18409e1474f5dd69ba131.tar.gz gcc-57bdf399d42c0c73c5d18409e1474f5dd69ba131.tar.bz2 | |
Fix PR 54033, problems with -I, with test cases
PR fortran/54033
* scanner.c (add_path_to_list): New argument warn. Don't
warn if it is true.
(gfc_add_include_path): Warn if directory is missing.
(gfc_add_intrinsic_modules_path): Do not warn if directory
is missing.
* optinons.c (gfc_handle_option): Do not add directory
for intrinsic modules to normal include path.
From-SVN: r190144
Diffstat (limited to 'gcc/fortran/scanner.c')
| -rw-r--r-- | gcc/fortran/scanner.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index d4a27a8..e0556a9 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -307,7 +307,7 @@ gfc_scanner_done_1 (void) static void add_path_to_list (gfc_directorylist **list, const char *path, - bool use_for_modules, bool head) + bool use_for_modules, bool head, bool warn) { gfc_directorylist *dir; const char *p; @@ -324,8 +324,11 @@ add_path_to_list (gfc_directorylist **list, const char *path, gfc_warning_now ("Include directory \"%s\": %s", path, xstrerror(errno)); else - /* FIXME: Also support -Wmissing-include-dirs. */ - gfc_warning_now ("Nonexistent include directory \"%s\"", path); + { + /* FIXME: Also support -Wmissing-include-dirs. */ + if (warn) + gfc_warning_now ("Nonexistent include directory \"%s\"", path); + } return; } else if (!S_ISDIR (st.st_mode)) @@ -363,7 +366,7 @@ add_path_to_list (gfc_directorylist **list, const char *path, void gfc_add_include_path (const char *path, bool use_for_modules, bool file_dir) { - add_path_to_list (&include_dirs, path, use_for_modules, file_dir); + add_path_to_list (&include_dirs, path, use_for_modules, file_dir, true); /* For '#include "..."' these directories are automatically searched. */ if (!file_dir) @@ -374,7 +377,7 @@ gfc_add_include_path (const char *path, bool use_for_modules, bool file_dir) void gfc_add_intrinsic_modules_path (const char *path) { - add_path_to_list (&intrinsic_modules_dirs, path, true, false); + add_path_to_list (&intrinsic_modules_dirs, path, true, false, false); } |