module.c (gfc_use_module): Free atom_string when done with it.

2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>

	* module.c (gfc_use_module): Free atom_string when done with it.

From-SVN: r165029

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b4252ec7f799eedb4f20352b3d5da9bb17ea0534..2e4e1780c1482cd4411c8a8638223f9e19867539 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * module.c (gfc_use_module): Free atom_string when done with it.
+
 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
 
        * module.c (read_module): Remove useless string duplication.

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 02f57566d6c052254d9312c94ccdcfe6018656e9..71699ade59353ad6974e60721280804359717adb 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -5687,6 +5687,8 @@ gfc_use_module (void)
                               "for file '%s' opened at %C", atom_string,
                               MOD_VERSION, filename);
            }
+
+         gfc_free (atom_string);
        }
 
       if (c == '\n')