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 b4252ec..2e4e178 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,9 @@
 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.
 
 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 02f5756..71699ad 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')