From 39f09918839878243491e84ab887887189d09282 Mon Sep 17 00:00:00 2001
From: anquetil <nicolas.anquetil@inria.fr>
Date: Tue, 11 Jun 2024 17:54:18 +0200
Subject: [PATCH] fix #56

---
 .../FamixF77StatementFunction.class.st                        | 4 ++--
 .../FamixFortran77Generator.class.st                          | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

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."