OSDN Git Service

2007-01-02 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 2 Jan 2007 15:54:20 +0000 (15:54 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 2 Jan 2007 15:54:20 +0000 (15:54 +0000)
PR fortran/30276
* scanner.c (open_included_file): Support full-path filenames.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120344 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/scanner.c

index e8a3de5..9ecef06 100644 (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
index 30d9b6f..5d519a0 100644 (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)