Merge pull request #57 from moosetechnology/56-FamixF77StatementFunct…

…ion-does-not-understand-children fix #56
moosetechnology · Jun 11, 2024 · f55a46e · f55a46e
2 parents 81042ba + 39f0991
commit f55a46e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git 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
@@ -266,6 +266,8 @@ FamixFortran77Generator >> defineHierarchy [
 	statementFunction --|> #TWithTypes.
 	statementFunction --|> #TWithLocalVariables.
 	statementFunction --|> #TInvocable.
+	statementFunction --|> #TEntityMetaLevelDependency.
+
 
 	"real --|> typeIntrinsic."