procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/30276 (gfortran include problem)

Browse source 
2007-01-02  Tobias Burnus  <burnus@net-b.de>
            Jakub Jelinek  <jakub@redhat.com>

        PR fortran/30276
        * scanner.c (open_included_file): Revert patch.
          (gfc_open_included_file): Support absolute pathnames.
          (gfc_open_intrinsic_module): Support absolute pathnames.


Co-Authored-By: Jakub Jelinek <jakub@redhat.com>

From-SVN: r120431
This commit is contained in:
Tobias Burnus 2007-01-04 09:57:36 +01:00 • committed by Tobias Burnus
parent b8a00a4dcb
commit e01f74e08e
2 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View file

@ -1,3 +1,11 @@
2007-01-02 Tobias Burnus <burnus@net-b.de>
Jakub Jelinek <jakub@redhat.com>
PR fortran/30276
* scanner.c (open_included_file): Revert patch.
(gfc_open_included_file): Support absolute pathnames.
(gfc_open_intrinsic_module): Support absolute pathnames.
2007-01-03 Brooks Moses <brooks.moses@codesourcery.com>
* gfortran.texi (GNU Fortran and GCC): Rewrite

11
gcc/fortran/scanner.c
View file

@ -199,11 +199,6 @@ 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)
@ -231,6 +226,9 @@ gfc_open_included_file (const char *name, bool include_cwd, bool module)
{
FILE *f;
if (IS_ABSOLUTE_PATH (name))
return gfc_open_file (name);
if (include_cwd)
{
f = gfc_open_file (name);
@ -244,6 +242,9 @@ gfc_open_included_file (const char *name, bool include_cwd, bool module)
FILE *
gfc_open_intrinsic_module (const char *name)
{
if (IS_ABSOLUTE_PATH (name))
return gfc_open_file (name);
return open_included_file (name, intrinsic_modules_dirs, true);
}