add type to format declaration

mbdevpl · mbdevpl · commit a4b0ab72a8d9 · 2019-04-08T01:50:41.000+09:00
diff --git a/src/fortran/ofp/XMLPrinter.java b/src/fortran/ofp/XMLPrinter.java
@@ -1965,6 +1965,8 @@ public void format_stmt(Token label, Token formatKeyword, Token eos) {
 		if (verbosity >= 60)
 			super.format_stmt(label, formatKeyword, eos);
 		contextClose();
+		if (context.getTagName().equals("declaration"))
+			setAttribute("type", "format");
 	}
 
 	public void format_specification(boolean hasFormatItemList) {

Original file line number	Diff line number	Diff line change
`@@ -1965,6 +1965,8 @@ public void format_stmt(Token label, Token formatKeyword, Token eos) {`
`1965`	`1965`	`if (verbosity >= 60)`
`1966`	`1966`	`super.format_stmt(label, formatKeyword, eos);`
`1967`	`1967`	`contextClose();`
	`1968`	`+ if (context.getTagName().equals("declaration"))`
	`1969`	`+ setAttribute("type", "format");`
`1968`	`1970`	`}`
`1969`	`1971`
`1970`	`1972`	`public void format_specification(boolean hasFormatItemList) {`