try to put tokens where they can be picked up

Author: mbdevpl

src/fortran/ofp/XMLPrinterBase.java

@@ -589,6 +589,13 @@ protected void insertTokens(Element context, int tokenType, String tokenContextN
 				throw new IllegalArgumentException("two possible targets");
 			}
 			*/
+			if (targetIndex > 0) {
+				Element beforeTarget = contextNode(target, targetIndex - 1);
+				if (beforeTarget.getNodeName().equals("body")) {
+					target = beforeTarget;
+					targetIndex = contextNodesCount(beforeTarget);
+				}
+			}
 
 			Element tokenNode = contextOpen(tokenContextName);
 			setAttribute(tokenTextAttributeName, token.getText());