scanner.c (gfc_open_intrinsic_module): Remove function.

	* scanner.c (gfc_open_intrinsic_module): Remove function.
	* gfortran.h (gfc_open_intrinsic_module): Remove prototype.

From-SVN: r205335

gcc/fortran/ChangeLog

+2013-11-24  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	* scanner.c (gfc_open_intrinsic_module): Remove function.
+	* gfortran.h (gfc_open_intrinsic_module): Remove prototype.
+
 2013-11-23  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/59228

gcc/fortran/gfortran.h

@@ -2397,7 +2397,6 @@ 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);
-FILE *gfc_open_intrinsic_module (const char *);
 
 int gfc_at_end (void);
 int gfc_at_eof (void);

gcc/fortran/scanner.c

@@ -465,24 +465,6 @@ gfc_open_included_file (const char *name, bool include_cwd, bool module)
   return f;
 }
 
-FILE *
-gfc_open_intrinsic_module (const char *name)
-{
-  FILE *f = NULL;
-
-  if (IS_ABSOLUTE_PATH (name))
-    {
-      f = gfc_open_file (name);
-      if (f && gfc_cpp_makedep ())
-	gfc_cpp_add_dep (name, true);
-    }
-
-  if (!f)
-    f = open_included_file (name, intrinsic_modules_dirs, true, true);
-
-  return f;
-}
-
 
 /* Test to see if we're at the end of the main source file.  */