Plug remaining leaks in mpich3-test/f77/attr.

[simgrid.git] / 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 78aaa35..f9f4ce5 100644 (file)
--- 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