Open MPI logo

Open MPI User's Mailing List Archives

  |   Home   |   Support   |   FAQ   |   all Open MPI User's mailing list

Subject: Re: [OMPI users] openmpi 1.7.4rc1 and f08 interface
From: Åke Sandgren (ake.sandgren_at_[hidden])
Date: 2014-01-31 15:31:20


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: ake_at_[hidden]   Phone: +46 90 7866134 Fax: +46 90 7866126
Mobile: +46 70 7716134 WWW: http://www.hpc2n.umu.se