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을 사용하여 테스트되었습니다. 이 코드는 표준에 의해 허용되거나 컴파일러 종속성 기능이므로 ok로 실행됩니다. 도움 주셔서 감사합니다.

Answer 1

F2003 기능을 사용하는 방식이 좋지만 likefoo 추상화를위한 인터페이스를 만듭니다. 모듈 의존성의 유향 그래프에 대한 요구 사항은 모듈의 프로 시저 호출 중첩에 대한 직교 개념입니다.