resolve.c (generate_component_assignments): Fix memleak.

2012-12-05  Tobias Burnus  <burnus@net-b.de>

        * resolve.c (generate_component_assignments): Fix memleak.

From-SVN: r194225

gcc/fortran/ChangeLog

+2012-12-05  Tobias Burnus  <burnus@net-b.de>
+
+	* resolve.c (generate_component_assignments): Fix memleak.
+
 2012-12-03  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/55548

gcc/fortran/resolve.c

@@ -9857,7 +9857,6 @@ generate_component_assignments (gfc_code **code, gfc_namespace *ns)
 	continue;
 
       /* Make an assigment for this component.  */
-      this_code = gfc_get_code ();
       this_code = build_assignment (EXEC_ASSIGN,
 				    (*code)->expr1, (*code)->expr2,
 				    comp1, comp2, (*code)->loc);