Merge pull request #214 from moosetechnology/access-to-stub-attribute

handling access to stub attribute (p.att where att is not found)

Author: NicolasAnquetil

src/EsopeImporter-Tests/FamixEsopeResolverTest.class.st

@@ -1350,8 +1350,6 @@ FamixEsopeResolverTest >> testResolvePointeurWithStubSegmentAccessingField [
       end
 	"
 
-	self flag: '#FIXME: after this tests we must have a stub segment and we need to add a x attribute to this segment?'.
-
 	varP := self newEntity: FamixF77Variable named: 'p'.
 	varP segment: 'point'.
 	varP isEsope: true.
@@ -1375,10 +1373,9 @@ FamixEsopeResolverTest >> testResolvePointeurWithStubSegmentAccessingField [
 	self assert: main accesses size equals: 2.
 
 	self assert: access variable equals: varP.
-	self assert: access accessor equals: main.
 
-	self assert: access2 variable isNil.
-	self assert: access2 accessor equals: main
+	self assert: access2 variable class equals: FamixFortranAttribute.
+	self assert: access2 variable name equals: 'x'
 ]
 
 { #category : 'tests' }

src/EsopeImporter/FamixEsopeResolver.class.st

@@ -308,12 +308,13 @@ FamixEsopeResolver >> resolveAttributeAccess: anAccess forPointer: aPointerVaria
 
 	aPointerVariable declaredType 
 		ifNotNil: [ :declaredType |
-			declaredType attributes
-				detect: [ :att | att name asLowercase = variableAccessed entityName asLowercase ]
-				ifFound: [ :att | anAccess variable: att ]
-				ifNone: [ 
-					"What to do if we have any attribute match? Nothing for Now"	
-				]
+			anAccess variable: 
+				(declaredType attributes
+					detect: [ :att | att name asLowercase = variableAccessed entityName asLowercase ]
+					ifNone: [
+						(model newAttributeNamed: variableAccessed entityName asLowercase)
+							isStub: true
+					])
 			]
 		ifNil: [ 
 			self resolveDeclaredTypeOfPointers.