Merge branch 'free_mpi_obj' of https://github.com/wkliao/netcdf-c int…

…o two-pulls
Unidata · Aug 10, 2017 · 22d4754 · 22d4754
2 parents 8fcf0e5 + 7992242
commit 22d4754
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/nc_test/tst_formatx_pnetcdf.c b/nc_test/tst_formatx_pnetcdf.c
@@ -66,6 +66,7 @@ int main(int argc, char* argv[])
 	ecode = 1;
 	ERR;
     }
+    if (nc_close(ncid)) ERR;
 
     /* test CDF-2 file format */
     cmode = NC_PNETCDF | NC_CLOBBER | NC_64BIT_OFFSET;
@@ -84,6 +85,7 @@ int main(int argc, char* argv[])
 	ecode = 1;
 	ERR;
     }
+    if (nc_close(ncid)) ERR;
 
     /* test CDF-5 file format */
     cmode = NC_PNETCDF | NC_CLOBBER | NC_64BIT_DATA;
@@ -102,8 +104,7 @@ int main(int argc, char* argv[])
 	ecode = 1;
 	ERR;
     }
-
-    if (nc_abort(ncid)) ERR;
+    if (nc_close(ncid)) ERR;
 
 fn_exit:
     MPI_Finalize();