Jakub Jelinek <jakub@redhat.com>
PR fortran/30276
* scanner.c (open_included_file): Revert patch.
(gfc_open_included_file): Support absolute pathnames.
(gfc_open_intrinsic_module): Support absolute pathnames.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120431
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-01-02 Tobias Burnus <burnus@net-b.de>
+ Jakub Jelinek <jakub@redhat.com>
+
+ PR fortran/30276
+ * scanner.c (open_included_file): Revert patch.
+ (gfc_open_included_file): Support absolute pathnames.
+ (gfc_open_intrinsic_module): Support absolute pathnames.
+
2007-01-03 Brooks Moses <brooks.moses@codesourcery.com>
* gfortran.texi (GNU Fortran and GCC): Rewrite
gfc_directorylist *p;
FILE *f;
- f = gfc_open_file (name);
-
- if (f != NULL)
- return f;
-
for (p = list; p; p = p->next)
{
if (module && !p->use_for_modules)
{
FILE *f;
+ if (IS_ABSOLUTE_PATH (name))
+ return gfc_open_file (name);
+
if (include_cwd)
{
f = gfc_open_file (name);
FILE *
gfc_open_intrinsic_module (const char *name)
{
+ if (IS_ABSOLUTE_PATH (name))
+ return gfc_open_file (name);
+
return open_included_file (name, intrinsic_modules_dirs, true);
}