mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-02-05 16:20:10 +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 else
#endif #endif
status = NC_EPARINIT; status = NC_EPARINIT;
file->fh = MPI_FILE_NULL;
goto done; goto done;
} }
/* Get its length */ /* Get its length */
@ -1390,7 +1391,8 @@ closemagic(struct MagicFile* file)
#ifdef USE_PARALLEL #ifdef USE_PARALLEL
if (file->use_parallel) { if (file->use_parallel) {
int retval; 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;} {status = NC_EPARINIT; return status;}
} else } else
#endif #endif