diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-01-27 08:02:58 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-01-27 08:02:58 +0100 |
| commit | 22b00a9f06f4965d82b3f8077c67d1b9afcd5015 (patch) | |
| tree | dbba822d182f0660adcb8f0f0230557550a946f8 /gcc/fortran/options.c | |
| parent | 3de28112120e9f920add677d0387aa8032447005 (diff) | |
| download | gcc-22b00a9f06f4965d82b3f8077c67d1b9afcd5015.zip gcc-22b00a9f06f4965d82b3f8077c67d1b9afcd5015.tar.gz gcc-22b00a9f06f4965d82b3f8077c67d1b9afcd5015.tar.bz2 | |
re PR fortran/47472 (Rules printed by -M option contains duplicate slash when -J option is used)
2011-01-27 Tobias Burnus <burnus@net-b.de>
PR fortran/47472
* options.c (gfc_handle_module_path_options): Save
module path without trailing slash as include path.
From-SVN: r169323
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 1f1cdd1..c116103 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -463,9 +463,10 @@ gfc_handle_module_path_options (const char *arg) gfc_option.module_dir = (char *) gfc_getmem (strlen (arg) + 2); strcpy (gfc_option.module_dir, arg); - strcat (gfc_option.module_dir, "/"); gfc_add_include_path (gfc_option.module_dir, true, false); + + strcat (gfc_option.module_dir, "/"); } |