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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 61c02100a563726ddd4f229bcbf68bb1a546978d..58b9c11d32fd42162d74fd2264fa6544973ce49e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index af5e68c13ab6e218e603803916decfa4b0d6b32a..ff3ffb5a1c3daa93bff094af9eb74e49fc7cccc4 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/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);

diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index 882e2d5e06f46c8080a25e37e7d5f4f46bee2b81..e0650ba7ee00b7735618a5955eb8c701de20096c 100644 (file)
--- a/gcc/fortran/scanner.c
+++ b/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.  */