module Mod
    implicit none

        TYPE derivedtype

            integer::i
            procedure(procInterface),POINTER,PASS::f=> NULL()

        END TYPE derivedtype


        ABSTRACT INTERFACE

            subroutine procInterface(A)

                import derivedtype
                class(derivedtype),intent(inout)::A

            end subroutine

        END INTERFACE

    contains


        subroutine proc1(A)
            implicit none
            type(derivedType),intent(inout)::A

                A%i=999

        end subroutine

end module Mod



program Test1

    use Mod
    implicit none

    type(derivedtype)::T

    T%i=123
    T%f => proc1

    call T%f()

    print*,T%i

end program