From 078cae36e858cdcc696de46bd096c04e6e657fe3 Mon Sep 17 00:00:00 2001
From: uNouss <younss@mailoo.org>
Date: Fri, 10 Nov 2023 11:53:47 +0100
Subject: [PATCH] Fix: Module contains types

---
 src/Famix-Fortran03-Entities/FamixF03Module.class.st           | 2 ++
 src/Famix-Fortran03-Generator/FamixFortran03Generator.class.st | 1 +
 2 files changed, 3 insertions(+)

diff --git a/src/Famix-Fortran03-Entities/FamixF03Module.class.st b/src/Famix-Fortran03-Entities/FamixF03Module.class.st
index aed9621..3ce9605 100644
--- a/src/Famix-Fortran03-Entities/FamixF03Module.class.st
+++ b/src/Famix-Fortran03-Entities/FamixF03Module.class.st
@@ -40,6 +40,8 @@ end module my_mod
 Class {
 	#name : #FamixF03Module,
 	#superclass : #FamixF77ProgramUnit,
+	#traits : 'FamixTWithTypes',
+	#classTraits : 'FamixTWithTypes classTrait',
 	#instVars : [
 		'#users => FMMany type: #FamixF03Use opposite: #used'
 	],
diff --git a/src/Famix-Fortran03-Generator/FamixFortran03Generator.class.st b/src/Famix-Fortran03-Generator/FamixFortran03Generator.class.st
index b59eae6..b21ba95 100644
--- a/src/Famix-Fortran03-Generator/FamixFortran03Generator.class.st
+++ b/src/Famix-Fortran03-Generator/FamixFortran03Generator.class.st
@@ -97,6 +97,7 @@ FamixFortran03Generator >> defineHierarchy [
 	method --|> #TMethod.
 
 	module --|> programUnit.
+	module --|> #TWithTypes.
 	
 	parameter --|> tHasIntent.