re PR fortran/30430 (Memory corruption in the module search path code)

	PR fortran/30430
	* scanner.c (gfc_release_include_path): Free gfc_option.module_dir
	only once!

From-SVN: r120667

gcc/fortran/ChangeLog

+2007-01-11  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR fortran/30430
+	* scanner.c (gfc_release_include_path): Free gfc_option.module_dir
+	only once!
+
 2007-01-09  Brooks Moses  <brooks.moses@codesourcery.com>
 
 	* simplify.c (gfc_simplify_ibclr): Fix POS comparison.

gcc/fortran/scanner.c

@@ -172,7 +172,6 @@ gfc_release_include_path (void)
 {
   gfc_directorylist *p;
 
-  gfc_free (gfc_option.module_dir);
   while (include_dirs != NULL)
     {
       p = include_dirs;
@@ -181,7 +180,6 @@ gfc_release_include_path (void)
       gfc_free (p);
     }
 
-  gfc_free (gfc_option.module_dir);
   while (intrinsic_modules_dirs != NULL)
     {
       p = intrinsic_modules_dirs;
@@ -189,6 +187,8 @@ gfc_release_include_path (void)
       gfc_free (p->path);
       gfc_free (p);
     }
+
+  gfc_free (gfc_option.module_dir);
 }