------- Comment #4 from tkoenig at gcc dot gnu dot org 2006-12-26 12:15 -------
(In reply to comment #1)
>
> Index: gcc/fortran/scanner.c
> ===================================================================
> --- gcc/fortran/scanner.c (Revision 120144)
> +++ gcc/fortran/scanner.c (Arbeitskopie)
> @@ -199,6 +199,11 @@
> 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)
Looks obvious. Pre-approved for a regression-tested
version. As for a test case, I don't see an easy way
of generating one.
Thomas
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |tkoenig at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30276
