Skip to content

Commit 59d826d

Browse files
committed
Merge branch 'feature/two-keyword-typenames'
2 parents da6de16 + 33725f8 commit 59d826d

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

src/fortran/ofp/XMLPrinter.java

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -410,7 +410,10 @@ public void declaration_type_spec(Token udtKeyword, int type) {
410410
n = getAttribute("name");
411411
if (n != null)
412412
new IllegalArgumentException(declaration.getTagName());
413-
setAttribute("name", declaration.getAttribute("keyword1"));
413+
String name = declaration.getAttribute("keyword1");
414+
if (declaration.getAttribute("keyword2").length() > 0)
415+
name += " " + declaration.getAttribute("keyword2");
416+
setAttribute("name", name);
414417
setAttribute("type", "intrinsic");
415418
break;
416419
case "derived-type-spec":

0 commit comments

Comments
 (0)