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
2 changed files with 10 additions and 0 deletions
|
@ -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…
Add table
Reference in a new issue