fully support save statement

Author: mbdevpl

src/fortran/ofp/XMLPrinter.java

@@ -761,6 +761,13 @@ public void save_stmt(Token label, Token keyword, Token eos, boolean hasSavedEnt
 		super.save_stmt(label, keyword, eos, hasSavedEntityList);
 	}
 
+	public void saved_entity(Token id, boolean isCommonBlockName) {
+		contextOpen("name");
+		super.saved_entity(id, isCommonBlockName);
+		setAttribute("id", id);
+		contextClose();
+	}
+
 	public void target_decl_list__begin() {
 		if (!context.getTagName().equals("declaration"))
 			contextOpen("declaration");

src/fortran/ofp/XMLPrinterBase.java

@@ -113,8 +113,8 @@ static public void addListContext(String eventNamePrefix, String listName, Strin
 		addListContext("pointer-decl", "names", null);
 		/*
 		addListContext("cray-pointer-assoc", "", "");
-		addListContext("saved-entity", "", "");
 		*/
+		addListContext("saved-entity", "names", "name");
 		// addListContext("target-decl", null, null); // currently not necessary
 		/*
 		addListContext("implicit-spec", "", "");