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: Jeff Squyres (jsquyres) (jsquyres_at_[hidden])
Date: 2014-02-01 09:12:27


Thanks!

I noted your comment on the ticket so that it doesn't get lost. I haven't had a chance to look into this yet because we've been focusing on getting 1.7.4 out the door, and this has been identified as a 1.7.5 fix.

On Jan 31, 2014, at 3:31 PM, Åke Sandgren <ake.sandgren_at_[hidden]> wrote:

> 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
> _______________________________________________
> users mailing list
> users_at_[hidden]
> http://www.open-mpi.org/mailman/listinfo.cgi/users

-- 
Jeff Squyres
jsquyres_at_[hidden]
For corporate legal information go to: http://www.cisco.com/web/about/doing_business/legal/cri/