mirror of
https://gcc.gnu.org/git/gcc.git
synced 2024-11-27 13:54:19 +08:00
re PR fortran/30276 (gfortran include problem)
2007-01-02 Tobias Burnus <burnus@net-b.de> PR fortran/30276 * scanner.c (open_included_file): Support full-path filenames. From-SVN: r120344
This commit is contained in:
parent
410cf6e692
commit
f1441c81b0
@ -1,3 +1,8 @@
|
||||
2007-01-02 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
PR fortran/30276
|
||||
* scanner.c (open_included_file): Support full-path filenames.
|
||||
|
||||
2007-01-02 Paul Thomas <pault@gcc.gnu.org>
|
||||
|
||||
PR fortran/20896
|
||||
|
@ -199,6 +199,11 @@ open_included_file (const char *name, gfc_directorylist *list, bool module)
|
||||
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)
|
||||
|
Loading…
Reference in New Issue
Block a user