From: Tobias Burnus <burnus@net-b.de>
Date: Tue, 2 Jan 2007 15:54:20 +0000 (+0100)
Subject: re PR fortran/30276 (gfortran include problem)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f1441c81b036c3fd8ec8effc6035d8458e187f38;p=gcc.git

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e8a3de5efe3..9ecef064d44 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index 30d9b6f3b2c..5d519a0ba9b 100644
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -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)