Restriction de l'accès aux procédures de module à partir d'autres procédures de module

Question

J'ai récemment découvert la nouvelle fonctionnalité de Fortran 2008, à savoir SUBMODULE s.

Veuillez jeter un oeil à mon exemple de travail minimum en bas de la question. Après la compilation, il met les éléments suivants sur le terminal:

Accessed sub0 
Accessed sub1 
Accessed sub2 

C'est, comme il se doit, les procédures de module de sub1 et sub2 peuvent CALL l'autre et tout est OK. Pour des raisons comme l'architecture de code et la maintenance, j'ai besoin de restreindre cet accès d'une manière ou d'une autre. Autrement dit, les procédures de module (sub1 et sub2) sont invisibles l'une par rapport à l'autre. Puis-je le faire?

MODULE parent 
    PRIVATE 
    PUBLIC :: sub0 
    INTERFACE 
     MODULE SUBROUTINE sub1() 
     END SUBROUTINE 
     MODULE SUBROUTINE sub2() 
     END SUBROUTINE 
    END INTERFACE 
    CONTAINS 
    SUBROUTINE sub0() 
     PRINT *, 'Accessed sub0' 
     CALL sub1() 
    END SUBROUTINE 
END MODULE 

SUBMODULE (parent) submod1 
    CONTAINS 
    MODULE PROCEDURE sub1 
     PRINT *, 'Accessed sub1' 
     CALL sub2() 
    END SUBROUTINE 
END SUBMODULE 

SUBMODULE (parent) submod2 
    CONTAINS 
    MODULE PROCEDURE sub2 
     PRINT *, 'Accessed sub2' 
    END PROCEDURE 
END SUBMODULE 

PROGRAM driver 
    USE parent 
    CALL sub0() 
END PROGRAM 

Answer 1

Pas vraiment.

deux sub1 et sub2 sont accessibles par sub0, ce qui signifie que, soit (ou une combinaison):

• sub et sub2 doivent être connus au même niveau de la hiérarchie du module/sous-module comme sub0, Comme dans l'exemple. Les sous-programmes pour sub1 et sub2 doivent être au même niveau que sub0 ou inférieur, auquel cas l'association d'hôte met à la disposition de l'autre procédure la connaissance de la procédure sub1 ou sub2.

• sub1 et sub2 doivent être une entité publique de deux autres modules. Mais dans ce cas, le sous-programme sub1 ou sub2 peut toujours simplement référencer directement le module qui définit l'autre.

• sub1 et sub2 sont des procédures externes. Encore une fois, le sous-programme sub1 ou sub2 peut accéder directement à l'autre procédure externe.

entités dans un hôte peuvent être cachés portées enfants s'il y a un nom dans le champ d'enfant ombres le nom de l'entité hôte (ou par l'utilisation des capacités étendues de la déclaration d'importation dans le projet de F2015 la norme). Vous pouvez mettre une déclaration fictive de quelque chose avec le même nom que le nom de la procédure que vous voulez bloquer à partir d'une portée particulière, mais c'est plutôt artificiel.