[svn-r2774] H5FD.c:

Purpose:
    Bug fix
Description:
    H5FD_close() wiped clean the public information before
    closing the FD.  This caused problem to the lower level
    close() which wants to verify it has indeed handed a valid
    file-driver to close because that information is wiped out
    prematurely.
Solution:
    Moved the public information part cleaning after it is closed.

H5FDmpio.c:
    Added in a bunch of assertion to make sure the file handle is indeed
    an MPIO file.

Platforms tested:
    IRIX64 -64 parallel

1 files changed, 1 insertions, 1 deletions

diff --git a/src/H5FD.c b/src/H5FD.c
index 5b27f9d..25a7c25 100644
--- a/src/H5FD.c
+++ b/src/H5FD.c
@@ -904,7 +904,6 @@ H5FD_close(H5FD_t *file)
     /* Prepare to close file by clearing all public fields */
     driver = file->cls;
     H5I_dec_ref(file->driver_id);
-    HDmemset(file, 0, sizeof(H5FD_t));
 
     /*
      * Dispatch to the driver for actual close. If the driver fails to
@@ -914,6 +913,7 @@ H5FD_close(H5FD_t *file)
     if ((driver->close)(file)<0) {
 	HRETURN_ERROR(H5E_VFL, H5E_CANTINIT, FAIL, "close failed");
     }
+    HDmemset(file, 0, sizeof(H5FD_t));
 
     FUNC_LEAVE(SUCCEED);
 }