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:
Tobias Burnus 2007-01-02 16:54:20 +01:00 committed by Tobias Burnus
parent 410cf6e692
commit f1441c81b0
2 changed files with 10 additions and 0 deletions

View File

@ -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

View File

@ -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)