1
1

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
Этот коммит содержится в:
Jeff Squyres 2014-03-12 14:12:10 +00:00
родитель a254d2db34
Коммит 3523e315b8

Просмотреть файл

@ -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