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

diff --git a/teshsuite/smpi/mpich3-test/f77/attr/typeattrf.f b/teshsuite/smpi/mpich3-test/f77/attr/typeattrf.f
index 78aaa35929..f9f4ce5fdb 100644
--- a/teshsuite/smpi/mpich3-test/f77/attr/typeattrf.f
+++ b/teshsuite/smpi/mpich3-test/f77/attr/typeattrf.f
@@ -104,7 +104,15 @@ 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 )
       if (ierr .ne. MPI_SUCCESS) then