re PR fortran/47472 (Rules printed by -M option contains duplicate slash when -J...

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c5ba0e5591659309c2a444aa594bbb6925fc19c6..263617079bf5ff4013d168ca4ba0a76a7520dbbc 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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.
+
 2011-01-25  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/47448

diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index 1f1cdd111d6c082d4406b23176fc10138a726572..c11610360b2bc0c623e58d290719257a8c5d569f 100644 (file)
--- 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, "/");
 }