diff --git a/tests/performance/pioperformance.F90 b/tests/performance/pioperformance.F90
index 16fe145a193..f814a306973 100644
--- a/tests/performance/pioperformance.F90
+++ b/tests/performance/pioperformance.F90
@@ -510,6 +510,8 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
        deallocate(rfld_in)
     endif
 
+    call MPI_Comm_free(comm, ierr)
+
   end subroutine pioperformancetest
 
   subroutine init_ideal_dof(doftype, mype, npe, ndims, gdims, compmap, varsize)