[flang] Address review comments
Original-commit: flang-compiler/f18@2ca329b85a3e6113f417dff25ba39898bd8869e8
Reviewed-on: https://github.com/flang-compiler/f18/pull/173
diff --git a/flang/lib/parser/unparse.cc b/flang/lib/parser/unparse.cc
index ce3e938..11bdef4 100644
--- a/flang/lib/parser/unparse.cc
+++ b/flang/lib/parser/unparse.cc
@@ -222,7 +222,7 @@
}
void Unparse(const TypeParamDefStmt &x) { // R732
Walk(std::get<IntegerTypeSpec>(x.t));
- Put(", "), Walk(std::get<common::TypeParamKindOrLen>(x.t));
+ Put(", "), Walk(std::get<common::TypeParamAttr>(x.t));
Put(" :: "), Walk(std::get<std::list<TypeParamDecl>>(x.t), ", ");
}
void Unparse(const TypeParamDecl &x) { // R733
@@ -2333,7 +2333,7 @@
#define WALK_NESTED_ENUM(CLASS, ENUM) \
void Unparse(const CLASS::ENUM &x) { Word(CLASS::EnumToString(x)); }
WALK_NESTED_ENUM(AccessSpec, Kind) // R807
- WALK_NESTED_ENUM(common, TypeParamKindOrLen) // R734
+ WALK_NESTED_ENUM(common, TypeParamAttr) // R734
WALK_NESTED_ENUM(IntentSpec, Intent) // R826
WALK_NESTED_ENUM(ImplicitStmt, ImplicitNoneNameSpec) // R866
WALK_NESTED_ENUM(ConnectSpec::CharExpr, Kind) // R1205
