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

gcc/fortran/ChangeLog

+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

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, "/");
 }