use M use ISO_C_BINDING use IFWIN implicit none abstract interface function SQ1(a) bind(C) use ISO_C_BINDING implicit none integer(C_INT) SQ1 integer(C_INT), value :: a end function SQ1 end interface ! procedure(SQ), pointer :: pSQ procedure(SQ1), pointer :: pSQ type(C_FUNPTR)...