Bug 328543 - Free form F95 intrinsic keyword breaks outline view
diff --git a/org.eclipse.photran.cdtinterface.vpg/src/org/eclipse/photran/internal/core/model/FortranModelBuildingVisitor.java b/org.eclipse.photran.cdtinterface.vpg/src/org/eclipse/photran/internal/core/model/FortranModelBuildingVisitor.java
index a2f82cc..33ecda7 100644
--- a/org.eclipse.photran.cdtinterface.vpg/src/org/eclipse/photran/internal/core/model/FortranModelBuildingVisitor.java
+++ b/org.eclipse.photran.cdtinterface.vpg/src/org/eclipse/photran/internal/core/model/FortranModelBuildingVisitor.java
@@ -273,7 +273,7 @@
{
IASTListNode<ASTExternalNameListNode> list = node.getExternalNameList();
for (int i = 0; i < list.size(); i++)
- addToModel(node, setPos(configureElement(new FortranElement.Subprogram(getCurrentParent()), list.get(i).getExternalName()), node));
+ addToModelNoChildren(setPos(configureElement(new FortranElement.Subprogram(getCurrentParent()), list.get(i).getExternalName()), node));
}
@Override public void visitASTInterfaceBlockNode(ASTInterfaceBlockNode node)
@@ -309,7 +309,7 @@
{
IASTListNode<ASTIntrinsicListNode> list = node.getIntrinsicList();
for (int i = 0; i < list.size(); i++)
- addToModel(node, setPos(configureElement(new FortranElement.Variable(getCurrentParent()), list.get(i).getIntrinsicProcedureName()), node));
+ addToModelNoChildren(setPos(configureElement(new FortranElement.Subprogram(getCurrentParent()), list.get(i).getIntrinsicProcedureName()), node));
}
@Override public void visitASTStmtFunctionStmtNode(ASTStmtFunctionStmtNode node)
