From 8974d5cc9eefbd8c07339e9c882e4a2619490626 Mon Sep 17 00:00:00 2001
From: Nadia Derbey <Nadia.Derbey@bull.net>
Date: Fri, 23 Jul 2010 12:41:21 +0000
Subject: [PATCH] Fixed a potential memory leak in mpi_type_create_struct_f

This commit was SVN r23484.
---
 ompi/mpi/f77/type_create_struct_f.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ompi/mpi/f77/type_create_struct_f.c b/ompi/mpi/f77/type_create_struct_f.c
index 7c4d5f89bf..565815f05e 100644
--- a/ompi/mpi/f77/type_create_struct_f.c
+++ b/ompi/mpi/f77/type_create_struct_f.c
@@ -95,4 +95,6 @@ void mpi_type_create_struct_f(MPI_Fint *count,
     if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
         *newtype = MPI_Type_c2f(c_new);
     }
+
+    free(c_type_old_array);
 }