ROMIO: Abort the comm associated with a file on error

Pass the comm associated with the MPI_File to MPIR_Abort in the event of
fatal error. Previous versions of this code passed either NULL or
MPI_COMM_WORLD, but the comm used to create the file is a more accurate
scope for the error.

Signed-off-by: Pavan Balaji <balaji@anl.gov>

src/mpi/romio/mpi-io/glue/mpich/mpio_err.c

@@ -74,10 +74,12 @@ int MPIO_Err_return_file(MPI_File mpi_fh, int error_code)
     /* --BEGIN ERROR HANDLING-- */
     if (MPIR_Err_is_fatal(error_code) || kind == 0) 
     {
+	ADIO_File fh = MPIO_File_resolve(mpi_fh);
+
 	MPL_snprintf(error_msg, 4096, "I/O error: ");
 	len = (int)strlen(error_msg);
 	MPIR_Err_get_string(error_code, &error_msg[len], 4096-len, NULL);
-	MPIR_Abort(MPI_COMM_WORLD, MPI_SUCCESS, error_code, error_msg);
+	MPIR_Abort(fh->comm, MPI_SUCCESS, error_code, error_msg);
     }
     /* --END ERROR HANDLING-- */
     else if (kind == 2) {