X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/af22f2644d3bc61055b274054a8ad6c2c85fa9dc..5a7ac6cd94d6233a891d8bf717d9b73a0b4e9ef4:/teshsuite/smpi/mpich3-test/f77/attr/typeattr3f.f

diff --git a/teshsuite/smpi/mpich3-test/f77/attr/typeattr3f.f b/teshsuite/smpi/mpich3-test/f77/attr/typeattr3f.f
index 5d30e70f61..36fcc3b422 100644
--- a/teshsuite/smpi/mpich3-test/f77/attr/typeattr3f.f
+++ b/teshsuite/smpi/mpich3-test/f77/attr/typeattr3f.f
@@ -70,6 +70,14 @@ C Test the attr delete function
          print *, ' Delete_attr did not delete attribute'
       endif
       call mpi_type_free( type2, ierr )
+C
+C Avoid memory leak
+      ierr = -1
+      call mpi_type_delete_attr( type1, keyval, ierr )
+      if (ierr .ne. MPI_SUCCESS) then
+         errs = errs + 1
+         call mtestprinterror( ierr )
+      endif
 C
       ierr = -1
       call mpi_type_free_keyval( keyval, ierr )