re PR fortran/56224 (gfortran -fopenmp cannot find omp_lib.h)

2013-02-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/56224
	* gfortran.h (gfc_add_include_path):  Add boolean argument
	for warn.
	* scanner.c (gfc_add_include_path):  Pass along warn argument
	to add_path_to_list.
	* options.c (gfc_post_options):  Add true warn argument to
	gfc_add_include_path.
	(gfc_handle_module_path_options):  Likewise.
	(gfc_handle_option): Also gfc_add_include_path for intrinsic
	modules, without warning.

From-SVN: r196058

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3e9e7914d063c12a2467cafc950a5359aa27090b..1375d0e37850c6ff26fe47db8ccc3d98e6abb41b 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,16 @@
+2013-02-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/56224
+       * gfortran.h (gfc_add_include_path):  Add boolean argument
+       for warn.
+       * scanner.c (gfc_add_include_path):  Pass along warn argument
+       to add_path_to_list.
+       * options.c (gfc_post_options):  Add true warn argument to
+       gfc_add_include_path.
+       (gfc_handle_module_path_options):  Likewise.
+       (gfc_handle_option): Also gfc_add_include_path for intrinsic
+       modules, without warning.
+
 2013-02-14  Paul Thomas  <pault@gcc.gnu.org>
            Tobias Burnus  <burnus@net-b.de>
 

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 3b4b4738f204a980219f9fb9dda612746111ae0a..44d5c911b9e5b4341c123a4ef39d693422c257fc 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -2381,7 +2381,7 @@ match gfc_match_char_spec (gfc_typespec *);
 void gfc_scanner_done_1 (void);
 void gfc_scanner_init_1 (void);
 
-void gfc_add_include_path (const char *, bool, bool);
+void gfc_add_include_path (const char *, bool, bool, bool);
 void gfc_add_intrinsic_modules_path (const char *);
 void gfc_release_include_path (void);
 FILE *gfc_open_included_file (const char *, bool, bool);

diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index a01463465549836d33d0993e26eed7f04fa683a3..fba1a3f3a88bf1df4416e4ed36e6efffbf440b2d 100644 (file)
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -337,10 +337,10 @@ gfc_post_options (const char **pfilename)
       source_path = (char *) alloca (i + 1);
       memcpy (source_path, canon_source_file, i);
       source_path[i] = 0;
-      gfc_add_include_path (source_path, true, true);
+      gfc_add_include_path (source_path, true, true, true);
     }
   else
-    gfc_add_include_path (".", true, true);
+    gfc_add_include_path (".", true, true, true);
 
   if (canon_source_file != gfc_source_file)
     free (CONST_CAST (char *, canon_source_file));
@@ -498,7 +498,7 @@ gfc_handle_module_path_options (const char *arg)
   gfc_option.module_dir = XCNEWVEC (char, strlen (arg) + 2);
   strcpy (gfc_option.module_dir, arg);
 
-  gfc_add_include_path (gfc_option.module_dir, true, false);
+  gfc_add_include_path (gfc_option.module_dir, true, false, true);
 
   strcat (gfc_option.module_dir, "/");
 }
@@ -844,6 +844,13 @@ gfc_handle_option (size_t scode, const char *arg, int value,
 
     case OPT_fintrinsic_modules_path:
     case OPT_fintrinsic_modules_path_:
+
+      /* This is needed because omp_lib.h is in a directory together
+        with intrinsic modules.  Do no warn because during testing
+        without an installed compiler, we would get lots of bogus
+        warnings for a missing include directory.  */
+      gfc_add_include_path (arg, false, false, false);
+
       gfc_add_intrinsic_modules_path (arg);
       break;
 
@@ -978,7 +985,7 @@ gfc_handle_option (size_t scode, const char *arg, int value,
       break;
 
     case OPT_I:
-      gfc_add_include_path (arg, true, false);
+      gfc_add_include_path (arg, true, false, true);
       break;
 
     case OPT_J:

diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index 0467f8ac347caac450b5e901c2a1e8294e6aaffd..f714ed01a549fcfc8c1f9f1188c8eca872960718 100644 (file)
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -375,9 +375,10 @@ 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)
+gfc_add_include_path (const char *path, bool use_for_modules, bool file_dir,
+                     bool warn)
 {
-  add_path_to_list (&include_dirs, path, use_for_modules, file_dir, true);
+  add_path_to_list (&include_dirs, path, use_for_modules, file_dir, warn);
 
   /* For '#include "..."' these directories are automatically searched.  */
   if (!file_dir)