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