On 02/01/2014 03:12 PM, Jeff Squyres (jsquyres) wrote:
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
At work reading the specs it is clear that it needs the IMPORT clause.
Could probably do IMPORT :: callback_variant1 if you want to import as
little as possible.
--
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
