support declarations like "public name1, name2"

Author: mbdevpl

src/fortran/ofp/XMLPrinter.java

@@ -646,15 +646,11 @@ public void intent_spec(Token intentKeyword1, Token intentKeyword2, int intent)
 		contextClose();
 	}
 
-	public void access_id_list__begin() {
-		// contextOpen("access-list");
-		if (verbosity >= 100)
-			super.access_id_list__begin();
-	}
-
-	public void access_id_list(int count) {
-		super.access_id_list(count);
-		// contextClose("access-list");
+	public void access_stmt(Token label, Token eos, boolean hasList) {
+		if (!context.getTagName().equals("declaration"))
+			cleanUpAfterError("tag name is not 'declaration' but '" + context.getTagName() + "'");
+		setAttribute("type", "access");
+		super.access_stmt(label, eos, hasList);
 	}
 
 	public void allocatable_decl_list__begin() {

src/fortran/ofp/XMLPrinterBase.java

@@ -98,7 +98,7 @@ static public void addListContext(String eventNamePrefix, String listName, Strin
 		/*
 		addListContext("explicit-shape-spec", "", "");
 		*/
-		// addListContext("access-id", /*"access-list"*/ null, null); // currently not necessary
+		addListContext("access-id", "names", null);
 		// addListContext("allocatable-decl", null, null); // currently not necessary
 		/*
 		addListContext("bind-entity", "", "");