mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-01-30 16:10:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

ensuring that MPI_File_close() is only called on open MPI file handle

Browse Source
This commit is contained in:
Edward Hartnett 2022-04-18 08:36:14 -06:00
parent dd4edd09eb
commit 9ffc8d6d42
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libdispatch/dinfermodel.c
View File

@ -1254,6 +1254,7 @@ openmagic(struct MagicFile* file)
else
#endif
status = NC_EPARINIT;
file->fh = MPI_FILE_NULL;
goto done;
}
/* Get its length */
@ -1390,7 +1391,8 @@ closemagic(struct MagicFile* file)
#ifdef USE_PARALLEL
if (file->use_parallel) {
int retval;
if((retval = MPI_File_close(&file->fh)) != MPI_SUCCESS)
if(file->fh != MPI_FILE_NULL
&& (retval = MPI_File_close(&file->fh)) != MPI_SUCCESS)
{status = NC_EPARINIT; return status;}
} else
#endif