mirror of
https://gcc.gnu.org/git/gcc.git
synced 2026-02-22 03:46:53 -05:00
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:
committed by
Tobias Burnus
parent
0013d88c47
commit
d4fcbd2118
@@ -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.
|
||||
|
||||
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user