ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Fix bug reported on user list; set the errhandler type properly.

Просмотр исходного кода 
This commit was SVN r23145.
Этот коммит содержится в:
Jeff Squyres 2010-05-15 13:04:32 +00:00
родитель 88f5217a12
Коммит 91507e595f
1 изменённых файлов: 2 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
ompi/mpi/f77/file_create_errhandler_f.c
Просмотреть файл

@ -9,7 +9,7 @@
* University of Stuttgart. All rights reserved. * University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California. * Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved. * All rights reserved.
* Copyright (c) 2008 Cisco Systems, Inc. All rights reserved. * Copyright (c) 2008-2010 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$ * $COPYRIGHT$
* *
* Additional copyrights may follow * 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_Fint *errhandler, MPI_Fint *ierr)
{ {
MPI_Errhandler c_errhandler = 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_generic_handler_fn_t*) function,
OMPI_ERRHANDLER_LANG_FORTRAN); OMPI_ERRHANDLER_LANG_FORTRAN);
if (MPI_ERRHANDLER_NULL != c_errhandler) { if (MPI_ERRHANDLER_NULL != c_errhandler) {