Merge pull request open-mpi#8997 from awlauria/fix_io_not_available_segv

Fix segv when io component can't be opened.

Author: awlauria

ompi/mca/io/base/io_base_file_select.c

@@ -192,14 +192,8 @@ int mca_io_base_file_select(ompi_file_t *file,
         unquery(avail, file);
         OBJ_RELEASE(item);
     }
-    OBJ_RELEASE(selectable);
-
-    /* Save the pointers of the selected module on the ompi_file_t */
 
-    file->f_io_version = selected.ai_version;
-    file->f_io_selected_component = selected.ai_component;
-    file->f_io_selected_module = selected.ai_module;
-    file->f_io_selected_data = selected.ai_module_data;
+    OBJ_RELEASE(selectable);
 
     if (!strcmp (selected.ai_component.v2_0_0.io_version.mca_component_name,
                  "ompio")) {
@@ -242,6 +236,14 @@ int mca_io_base_file_select(ompi_file_t *file,
         }
 
     }
+
+    /* Save the pointers of the selected module on the ompi_file_t */
+
+    file->f_io_version = selected.ai_version;
+    file->f_io_selected_component = selected.ai_component;
+    file->f_io_selected_module = selected.ai_module;
+    file->f_io_selected_data = selected.ai_module_data;
+
     /* Finally -- intialize the selected module. */
 
     if (OMPI_SUCCESS != (err = module_init(file))) {