BUG: Routines including procedure arguments (callbacks) are excluded

[HugoMVale]

• Routines containing explicit interfaces are excluded by f90wrap.
• Routines containing abstract interfaces are not excluded, but are incorrectly wrapped.

Input

! test.f90
module test
    implicit none
    private
    public :: foo, bar

    abstract interface
        function fx(x)
            integer :: x
            integer :: fx
        end function
    end interface
 
 contains
 
    subroutine foo(fnc, a, b)
        interface
            function fnc(x)
                integer :: x
                integer :: fnc
            end function
        end interface
       integer, intent(in) :: a
       integer, intent(out) :: b
       b = fnc(a)
    end subroutine

    subroutine bar(fnc, a, b)
       procedure(fx) :: fnc
       integer, intent(in) :: a
       integer, intent(out) :: b
       b = fnc(a)
    end subroutine
 
 end module test

Intermediate Result
Note how foo is gone.

! Module test defined in file test.f90

subroutine f90wrap_bar(fnc, a, b)
    use test, only: bar
    implicit none
    
    real :: fnc
    integer, intent(in) :: a
    integer, intent(out) :: b
    call bar(fnc=fnc, a=a, b=b)
end subroutine f90wrap_bar

! End of module test defined in file test.f90

Python module
Note how bar is called as a function, when it is actually a subroutine.

from __future__ import print_function, absolute_import, division
import _fortranmodule
import f90wrap.runtime
import logging
import numpy

class Test(f90wrap.runtime.FortranModule):
    """
    Module test
    
    
    Defined at test.f90 lines 1-27
    
    """
    @staticmethod
    def bar(fnc, a):
        """
        b = bar(fnc, a)
        
        
        Defined at test.f90 lines 23-27
        
        Parameters
        ----------
        fnc : float
        a : int
        
        Returns
        -------
        b : int
        
        """
        b = _fortranmodule.f90wrap_bar(fnc=fnc, a=a)
        return b
    
    _dt_array_initialisers = []
    

test = Test()

[currodri]

Hi! I've noticed this problem too. When defining abstract interface it is wrapped incorrectly. I have not been able to fix it yet.