diff --git a/src/Famix-Fortran77-Entities/FamixF77StatementFunction.class.st b/src/Famix-Fortran77-Entities/FamixF77StatementFunction.class.st index 3afa5f7..9e4e2c2 100644 --- a/src/Famix-Fortran77-Entities/FamixF77StatementFunction.class.st +++ b/src/Famix-Fortran77-Entities/FamixF77StatementFunction.class.st @@ -48,8 +48,8 @@ a statement function Class { #name : #FamixF77StatementFunction, #superclass : #FamixF77NamedEntity, - #traits : 'FamixF77TWithStatements + FamixTHasSignature + FamixTInvocable + FamixTSourceEntity + FamixTTypedEntity + FamixTWithLocalVariables + FamixTWithParameters + FamixTWithTypes', - #classTraits : 'FamixF77TWithStatements classTrait + FamixTHasSignature classTrait + FamixTInvocable classTrait + FamixTSourceEntity classTrait + FamixTTypedEntity classTrait + FamixTWithLocalVariables classTrait + FamixTWithParameters classTrait + FamixTWithTypes classTrait', + #traits : 'FamixF77TWithStatements + FamixTHasSignature + FamixTInvocable + FamixTSourceEntity + FamixTTypedEntity + FamixTWithLocalVariables + FamixTWithParameters + FamixTWithTypes + TEntityMetaLevelDependency', + #classTraits : 'FamixF77TWithStatements classTrait + FamixTHasSignature classTrait + FamixTInvocable classTrait + FamixTSourceEntity classTrait + FamixTTypedEntity classTrait + FamixTWithLocalVariables classTrait + FamixTWithParameters classTrait + FamixTWithTypes classTrait + TEntityMetaLevelDependency classTrait', #instVars : [ '#parentEntity => FMOne type: #FamixF77TWithStatements opposite: #statementFunctions' ], diff --git a/src/Famix-Fortran77-Generator/FamixFortran77Generator.class.st b/src/Famix-Fortran77-Generator/FamixFortran77Generator.class.st index 865c14c..aea2957 100644 --- a/src/Famix-Fortran77-Generator/FamixFortran77Generator.class.st +++ b/src/Famix-Fortran77-Generator/FamixFortran77Generator.class.st @@ -266,6 +266,8 @@ FamixFortran77Generator >> defineHierarchy [ statementFunction --|> #TWithTypes. statementFunction --|> #TWithLocalVariables. statementFunction --|> #TInvocable. + statementFunction --|> #TEntityMetaLevelDependency. + "real --|> typeIntrinsic."