Found by Coverity's scanner.
Committed as Rev. 194225 after building with the patch.
Tobias
Index: ChangeLog
===================================================================
--- ChangeLog (Revision 194224)
+++ ChangeLog (Arbeitskopie)
@@ -1,3 +1,7 @@
+2012-12-05 Tobias Burnus <bur...@net-b.de>
+
+ * resolve.c (generate_component_assignments): Fix memleak.
+
2012-12-03 Janus Weil <ja...@gcc.gnu.org>
PR fortran/55548
Index: resolve.c
===================================================================
--- resolve.c (Revision 194224)
+++ resolve.c (Arbeitskopie)
@@ -9857,7 +9857,6 @@ generate_component_assignments (gfc_code **code, g
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);
