From 3523e315b8d3d3bfc40b06ada0eac834fc99f978 Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Wed, 12 Mar 2014 14:12:10 +0000 Subject: [PATCH] Fix ompi function in Fortran RMA bindings cmr=v1.7.5:ticket=trac:4372 This commit was SVN r31026. The following Trac tickets were found above: Ticket 4372 --> https://svn.open-mpi.org/trac/ompi/ticket/4372 --- ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h b/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h index 4c0e196959..3627f4d13b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h +++ b/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h @@ -1,6 +1,6 @@ ! -*- f90 -*- ! -! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. ! Copyright (c) 2012 The University of Tennessee and The University @@ -2288,7 +2288,7 @@ subroutine ompi_win_complete_f(win,ierror) & end subroutine ompi_win_complete_f subroutine ompi_compare_and_swap_f(origin_addr,compare_addr,result_addr, & - target_rank,target_disp,datatype, win, & + datatype,target_rank,target_disp, win, & ierror) & BIND(C, name="ompi_compare_and_swap_f") use :: mpi_f08_types, only : MPI_ADDRESS_KIND