[Bug fortran/47472] Rules printed by -M option contains duplicate slash when -J option is used

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47472

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-01-26 
17:17:04 UTC ---
Draft patch completely untested (not even compiled):

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