On 01/28/2014 08:26 PM, Jeff Squyres (jsquyres) wrote:
Ok, will do.
Yesterday, I put in a temporary behavioral test in configure that will exclude
ekopath 5.0 in 1.7.4. We'll remove this behavioral test once OMPI fixes the
bug correctly (for 1.7.5).
I'm not 100% sure yet (my F2k3 spec is at work and I'm not) but the
ompi_funloc.tar.gz code in
https://svn.open-mpi.org/trac/ompi/ticket/4157 seems to be non comformant.
abstract interface
!! This is the prototype for ONE of the MPI callback routines
!
function callback_variant1(val)
integer :: val, callback_variant1
end function
end interface
interface
!! This is the OMPI conversion routine for ONE of the MPI callback
routines
!
function ompi_funloc_variant1(fn)
use, intrinsic :: iso_c_binding, only: c_funptr
procedure(callback_variant1) :: fn
type(c_funptr) :: ompi_funloc_variant1
end function ompi_funloc_variant1
end interface
I think that ompi_funloc_variant1 needs to do IMPORT to have access to
the callback_variant1 definition before using it to define "FN"
I.e.
!
function ompi_funloc_variant1(fn)
use, intrinsic :: iso_c_binding, only: c_funptr
import
procedure(callback_variant1) :: fn
--
Ake Sandgren, HPC2N, Umea University, S-90187 Umea, Sweden
Internet: a...@hpc2n.umu.se Phone: +46 90 7866134 Fax: +46 90 7866126
Mobile: +46 70 7716134 WWW: http://www.hpc2n.umu.se
