Open MPI logo

Open MPI User's Mailing List Archives

  |   Home   |   Support   |   FAQ   |  

This web mail archive is frozen.

This page is part of a frozen web archive of this mailing list.

You can still navigate around this archive, but know that no new mails have been added to it since July of 2016.

Click here to be taken to the new web archives of this list; it includes all the mails that are in this frozen archive plus all new mails that have been sent to the list since it was migrated to the new archives.

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