re PR fortran/30276 (gfortran include problem)

2007-01-30  Tobias Burnus  <burnus@net-b.de>
            Jakub Jelinek  <jakub@redhat.com>

       PR fortran/30276
       * scanner.c (gfc_open_included_file): Support absolute pathnames.


Co-Authored-By: Jakub Jelinek <jakub@redhat.com>

From-SVN: r121350
This commit is contained in:
Tobias Burnus
2007-01-30 19:13:14 +01:00
committed by Tobias Burnus
parent 0013d88c47
commit d4fcbd2118
2 changed files with 9 additions and 0 deletions

View File

@@ -1,3 +1,9 @@
2007-01-30 Tobias Burnus <burnus@net-b.de>
Jakub Jelinek <jakub@redhat.com>
PR fortran/30276
* scanner.c (gfc_open_included_file): Support absolute pathnames.
2007-01-30 Tobias Burnus <burnus@net-b.de>
Backport from mainline.

View File

@@ -178,6 +178,9 @@ gfc_open_included_file (const char *name, const bool include_cwd)
gfc_directorylist *p;
FILE *f;
if (IS_ABSOLUTE_PATH (name))
return gfc_open_file (name);
if (include_cwd)
{
f = gfc_open_file (name);