4 ! The binding label was not exported for private procedures
5 ! with public generic interfaces.
8 use iso_c_binding
, only
: c_int
16 subroutine test(a
) bind(c
, name
="myFunc")
17 integer(c_int
), intent(out
) :: a
28 if(x
/= 17) call abort()