* scanner.c (gfc_open_intrinsic_module): Remove function.
* gfortran.h (gfc_open_intrinsic_module): Remove prototype.
From-SVN: r205335
+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
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);
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. */