Fix: Module contains types

moosetechnology · Nov 10, 2023 · 078cae3 · 078cae3
1 parent 1166982
commit 078cae3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git 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
@@ -97,6 +97,7 @@ FamixFortran03Generator >> defineHierarchy [
 	method --|> #TMethod.
 
 	module --|> programUnit.
+	module --|> #TWithTypes.
 
 	parameter --|> tHasIntent.