Fortran：指向父模塊中子例程的過程

Question

我偶然發現了一種在子模塊中運行父進程的方法。我的意思是，這個技巧允許我以上游方式運行進程，與模塊的依賴關係樹有關。具體來說，這裏舉個例子：

module parent 
    procedure(likefoo),pointer :: to_foo 
    interface 
    subroutine likefoo 
    end subroutine likefoo 
    end interface 
contains 
    subroutine run 
    call to_foo 
    end subroutine 
end module 

module child 
    use parent 
contains 
    subroutine foo 
     print *, 'hola' 
    end subroutine foo 
end module 

program main 
    use parent 
    use child 

    to_foo => foo 
    call run 

end program 

這個例子用ifort 13.0.0進行了正面測試。 我想知道，這個代碼是標準允許的，或者只是它運行正常，因爲它是一個編譯器依賴特性？ 感謝您的幫助。

Answer 1

該方法沒問題（使用F2003功能），但爲likefoo抽象創建接口。對模塊依賴關係的有向圖的要求是與這些模塊中的過程調用的嵌套正交的概念。