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

diff --git a/teshsuite/smpi/mpich3-test/f77/attr/typeattr2f.f b/teshsuite/smpi/mpich3-test/f77/attr/typeattr2f.f
index 5fbbdbbf52..c0ce987b7f 100644
--- a/teshsuite/smpi/mpich3-test/f77/attr/typeattr2f.f
+++ b/teshsuite/smpi/mpich3-test/f77/attr/typeattr2f.f
@@ -89,6 +89,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 )