* scanner.c (gfc_open_intrinsic_module): Remove function.

	* gfortran.h (gfc_open_intrinsic_module): Remove prototype.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@205335 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 61c0210..58b9c11 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 af5e68c..ff3ffb5 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 882e2d5..e0650ba 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.  */