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

[simgrid.git] / 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 5fbbdbb..c0ce987 100644 (file)
--- 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 )