From 91507e595f99b63d5e5f7d8e4f672878f1a7f36f Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Sat, 15 May 2010 13:04:32 +0000 Subject: [PATCH] Fix bug reported on user list; set the errhandler type properly. This commit was SVN r23145. --- ompi/mpi/f77/file_create_errhandler_f.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ompi/mpi/f77/file_create_errhandler_f.c b/ompi/mpi/f77/file_create_errhandler_f.c index b5db096c5f..95b7ca4b7d 100644 --- a/ompi/mpi/f77/file_create_errhandler_f.c +++ b/ompi/mpi/f77/file_create_errhandler_f.c @@ -9,7 +9,7 @@ * University of Stuttgart. All rights reserved. * Copyright (c) 2004-2005 The Regents of the University of California. * All rights reserved. - * Copyright (c) 2008 Cisco Systems, Inc. All rights reserved. + * Copyright (c) 2008-2010 Cisco Systems, Inc. All rights reserved. * $COPYRIGHT$ * * Additional copyrights may follow @@ -67,7 +67,7 @@ void mpi_file_create_errhandler_f(ompi_errhandler_fortran_handler_fn_t* function MPI_Fint *errhandler, MPI_Fint *ierr) { MPI_Errhandler c_errhandler = - ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_COMM, + ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_FILE, (ompi_errhandler_generic_handler_fn_t*) function, OMPI_ERRHANDLER_LANG_FORTRAN); if (MPI_ERRHANDLER_NULL != c_errhandler) {