Merge pull request #9187 from edgargabriel/pr/file_close_incomplete_handle_fix_v4.1

Pr/file close incomplete handle fix v4.1

Author: jsquyres

ompi/mca/common/ompio/common_ompio_file_open.c

@@ -235,6 +235,11 @@ int mca_common_ompio_file_close (ompio_file_t *ompio_fh)
     int delete_flag = 0;
     char name[256];
 
+    /* Call coll_barrier only if collectives are set (same reasoning as below for f_fs) */
+    if (NULL == ompio_fh->f_comm || NULL == ompio_fh->f_comm->c_coll) {
+        return OMPI_SUCCESS;
+    }
+
     ret = ompio_fh->f_comm->c_coll->coll_barrier ( ompio_fh->f_comm, ompio_fh->f_comm->c_coll->coll_barrier_module);
     if ( OMPI_SUCCESS != ret ) {
         /* Not sure what to do */