Merge pull request #66 from moosetechnology/intrinsicRoutine

Forgot superclass of intrinsicRoutine

src/Famix-Fortran77-Entities/FamixF77IntrinsicRoutine.class.st

@@ -5,14 +5,14 @@ A subroutine (or function) defined in the Fortran language itself
 "
 Class {
 	#name : #FamixF77IntrinsicRoutine,
-	#superclass : #FamixF77Entity,
+	#superclass : #FamixF77PUProcedure,
 	#category : #'Famix-Fortran77-Entities-Entities'
 }
 
 { #category : #meta }
 FamixF77IntrinsicRoutine class >> annotation [
 
-	<FMClass: #IntrinsicRoutine super: #FamixF77Entity>
+	<FMClass: #IntrinsicRoutine super: #FamixF77PUProcedure>
 	<package: #'Famix-Fortran77-Entities'>
 	<generated>
 	^ self

src/Famix-Fortran77-Generator/FamixFortran77Generator.class.st

@@ -201,32 +201,23 @@ FamixFortran77Generator >> defineHierarchy [
 	access --|> #TAccess.
 	access --|> #TEntityMetaLevelDependency.
 
-	"character --|> typeIntrinsic.
-	
-	complex --|> typeIntrinsic."
-
 	externalDeclaration --|> namedEntity.
 	externalDeclaration --|> #TSourceEntity.
 
+	include --|> #TAssociation.
+
 	indexedFileAnchor --|> sourceAnchor.
 	indexedFileAnchor --|> #TFileNavigation.
 
 	invocation --|> #TInvocation.
 	invocation --|> #TEntityMetaLevelDependency.
 
-	include --|> #TAssociation.
-
-	"extends default TWithStatements in #defineRelations"
-	tWithStatements --|> #TWithStatements.
+	intrinsicRoutine --|> puProcedure.
 
 	includedFile --|> programUnit.
 	includedFile --|> #TWithTypes.
 	includedFile --|> tWithStatements.
 
-	"integer --|> typeIntrinsic.
-
-	logical --|> typeIntrinsic."
-
 	parameter --|> #TParameter.
 
 	programFile --|> namedEntity.
@@ -273,8 +264,7 @@ FamixFortran77Generator >> defineHierarchy [
 	statementFunction --|> #TInvocable.
 	statementFunction --|> #TEntityMetaLevelDependency.
 
-
-	"real --|> typeIntrinsic."
+	tWithStatements --|> #TWithStatements.
 
 	type --|> #TType.