From: Tobias Burnus Date: Thu, 27 Jan 2011 07:02:58 +0000 (+0100) Subject: re PR fortran/47472 (Rules printed by -M option contains duplicate slash when -J... X-Git-Tag: releases/gcc-4.6.0~924 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=22b00a9f06f4965d82b3f8077c67d1b9afcd5015;p=thirdparty%2Fgcc.git re PR fortran/47472 (Rules printed by -M option contains duplicate slash when -J option is used) 2011-01-27 Tobias Burnus PR fortran/47472 * options.c (gfc_handle_module_path_options): Save module path without trailing slash as include path. From-SVN: r169323 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c5ba0e559165..263617079bf5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-01-27 Tobias Burnus + + PR fortran/47472 + * options.c (gfc_handle_module_path_options): Save + module path without trailing slash as include path. + 2011-01-25 Tobias Burnus PR fortran/47448 diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 1f1cdd111d6c..c11610360b2b 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, "/"); }