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.