diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-11-17 13:51:41 +0100 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-11-17 12:51:41 +0000 |
| commit | b424a57253aafe26c07a50fecfd2a61999b06475 (patch) | |
| tree | 35d678ee317290325bc9327dcad95c6ae1820654 /gcc/fortran/module.c | |
| parent | 1c2e7a3ab332ecb47b606ce2400672eb6065e45f (diff) | |
| download | gcc-b424a57253aafe26c07a50fecfd2a61999b06475.zip gcc-b424a57253aafe26c07a50fecfd2a61999b06475.tar.gz gcc-b424a57253aafe26c07a50fecfd2a61999b06475.tar.bz2 | |
re PR fortran/20811 (gfortran include problem (regression from g77))
PR fortran/20811
* scanner.c (gfc_open_included_file): Add an extra include_cwd
argument. Only include files in the current working directory if
its value is true.
* gfortran.h: Change prototype for gfc_open_included_file.
(load_file): Don't search for include files in the current working
directory.
* options.c (gfc_post_options): Add the directory of the source file
to the list of paths for included files.
* module.c (gfc_use_module): Look for module files in the current
directory.
From-SVN: r107120
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 6f978aa..8f1ab73 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3741,7 +3741,7 @@ gfc_use_module (void) strcpy (filename, module_name); strcat (filename, MODULE_EXTENSION); - module_fp = gfc_open_included_file (filename); + module_fp = gfc_open_included_file (filename, true); if (module_fp == NULL) gfc_fatal_error ("Can't open module file '%s' for reading at %C: %s", filename, strerror (errno)); |