diff --git a/primary.c b/primary.c
index f6ceae9..9d0deec 100644
--- a/primary.c
+++ b/primary.c
@@ -2164,6 +2164,7 @@ gfc_free_structure_ctor_component (gfc_structure_ctor_component *comp)
 {
   gfc_free (comp->name);
   gfc_free_expr (comp->val);
+  gfc_free (comp);
 }