[flang] Add helpers for wrapper/tuple/variant classes.

Add VisitWrapperClass, VisitTupleClass, and VisitVariantClass to
simplify the common cases in the parse tree. ForEachInTuple is used to
implement VisitTupleClass.

Original-commit: flang-compiler/f18@c6ae2b833b5a12c9429f7af39806a8483b5c0394
Reviewed-on: https://github.com/flang-compiler/f18/pull/15
Tree-same-pre-rewrite: false

diff --git a/flang/lib/parser/parse-tree-visitor.h b/flang/lib/parser/parse-tree-visitor.h
index 95eeb78..0e09a40 100644 (file)
--- a/flang/lib/parser/parse-tree-visitor.h
+++ b/flang/lib/parser/parse-tree-visitor.h
@@ -20,6 +20,19 @@ namespace parser {
 
 namespace {
 
+// Apply func to each member of tuple.
+template<size_t I = 0, typename Func, typename... Ts>  // clang-format off
+typename std::enable_if<I == sizeof...(Ts)>::type
+ForEachInTuple(const std::tuple<Ts...> &, Func) {
+}
+
+template<size_t I = 0, typename Func, typename... Ts>
+typename std::enable_if<I < sizeof...(Ts)>::type
+ForEachInTuple(const std::tuple<Ts...> &tuple, Func func) {
+  func(std::get<I>(tuple));
+  ForEachInTuple<I + 1>(tuple, func);
+}  // clang-format on
+
 // Helpers: generic visitor that is called if there is no specific one
 // and visitors for std::optional, std::list, and Indirection.
 
@@ -47,6 +60,31 @@ void visit(const Indirection<T> &x, V &visitor) {
   visit(*x, visitor);
 }
 
+// Visit the single field 'v' in the class
+template<typename T, typename V>
+void VisitWrapperClass(const T &x, V &visitor) {
+  if (visitor.pre(x)) {
+    visit(x.v, visitor);
+    visitor.post(x);
+  }
+}
+
+// Visit the single tuple field 't' in the class
+template<typename T, typename V> void VisitTupleClass(const T &x, V &visitor) {
+  if (visitor.pre(x)) {
+    ForEachInTuple(x.t, [&](const auto &y) { visit(y, visitor); });
+    visitor.post(x);
+  }
+}
+
+// Visit the single variant field 'u' in the class
+template<typename T, typename V> void VisitUnionClass(const T &x, V &visitor) {
+  if (visitor.pre(x)) {
+    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
+    visitor.post(x);
+  }
+}
+
 }  // namespace
 
 template<typename T, typename V> void visit(const Scalar<T> &x, V &visitor) {
@@ -89,19 +127,11 @@ void visit(const LoopBounds<T> &x, V &visitor) {
 }
 
 template<typename V> void visit(const AcImpliedDo &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AcImpliedDoControl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AcSpec &x, V &visitor) {
@@ -113,163 +143,87 @@ template<typename V> void visit(const AcSpec &x, V &visitor) {
 }
 
 template<typename V> void visit(const AcValue &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const AcValue::Triplet &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AccessId &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const AccessStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ActionStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ActualArg &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ActualArg::PercentRef &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ActualArg::PercentVal &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ActualArgSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AllocOpt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const AllocOpt::Mold &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const AllocOpt::Source &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const AllocatableStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const AllocateCoarraySpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AllocateObject &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const AllocateShapeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AllocateStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Allocation &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AltReturnSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ArithmeticIfStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ArrayConstructor &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ArrayElement &x, V &visitor) {
@@ -281,300 +235,156 @@ template<typename V> void visit(const ArrayElement &x, V &visitor) {
 }
 
 template<typename V> void visit(const ArraySpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const AssignStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AssignedGotoStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AssignmentStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AssociateConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AssociateStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Association &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AssumedImpliedSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const AssumedShapeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const AssumedSizeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const AsynchronousStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const AttrSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const BOZLiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const BackspaceStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const BasedPointerStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const BindAttr &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const BindEntity &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const BindStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const BlockConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const BlockData &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const BlockDataStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const BlockSpecificationPart &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const BlockStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const BoundsRemapping &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const BoundsSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const Call &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CallStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const CaseConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CaseConstruct::Case &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CaseSelector &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const CaseStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CaseValueRange &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ChangeTeamConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ChangeTeamStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CharLength &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const CharLiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const CharLiteralConstantSubstring &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CharSelector &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V>
@@ -587,47 +397,27 @@ void visit(const CharSelector::LengthAndKind &x, V &visitor) {
 }
 
 template<typename V> void visit(const CharVariable &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const CloseStmt::CloseSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const CoarrayAssociation &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CoarraySpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const CodimensionDecl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CodimensionStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const CoindexedNamedObject &x, V &visitor) {
@@ -639,274 +429,143 @@ template<typename V> void visit(const CoindexedNamedObject &x, V &visitor) {
 }
 
 template<typename V> void visit(const CommonBlockObject &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CommonStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ComplexLiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ComplexPart &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ComponentArraySpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ComponentAttrSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ComponentDataSource &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ComponentDecl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ComponentDefStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ComponentSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ComputedGotoStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ConcurrentControl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ConcurrentHeader &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ConnectSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ConnectSpec::CharExpr &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ConnectSpec::Newunit &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ConnectSpec::Recl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ConstantValue &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ContiguousStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const CriticalConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CriticalStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const CycleStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const DataComponentDefStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DataIDoObject &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const DataImpliedDo &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DataReference &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const DataStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const DataStmtConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const DataStmtObject &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const DataStmtRepeat &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const DataStmtSet &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DataStmtValue &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DeallocateStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DeclarationConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const DeclarationTypeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V>
@@ -919,10 +578,7 @@ void visit(const DeclarationTypeSpec::Class &x, V &visitor) {
 
 template<typename V>
 void visit(const DeclarationTypeSpec::Record &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V>
@@ -934,403 +590,217 @@ void visit(const DeclarationTypeSpec::Type &x, V &visitor) {
 }
 
 template<typename V> void visit(const DeferredCoshapeSpecList &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const DeferredShapeSpecList &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const DefinedOpName &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const DefinedOperator &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const DerivedTypeDef &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visit(std::get<5>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DerivedTypeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DerivedTypeStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Designator &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V>
 void visit(const DimensionStmt::Declaration &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DoConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const DummyArg &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ElseIfStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ElseStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ElsewhereStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndAssociateStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndBlockDataStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndBlockStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndChangeTeamStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const EndCriticalStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndDoStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndForallStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndFunctionStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndIfStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndInterfaceStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndLabel &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndModuleStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndMpSubprogramStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndProgramStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndSelectStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndSubmoduleStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndSubroutineStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndTypeStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndWhereStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EndfileStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const EntityDecl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const EntryStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const EnumDef &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Enumerator &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const EnumeratorDefStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EorLabel &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EquivalenceObject &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EquivalenceStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ErrLabel &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const EventPostStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const EventWaitStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const EventWaitStmt::EventWaitSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ExecutableConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
-}
-
-template<typename V> void visit(const ExecutionPartConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
+}
+
+template<typename V> void visit(const ExecutionPartConstruct &x, V &visitor) {
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ExitStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ExplicitCoshapeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ExplicitShapeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ExponentPart &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Expr &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const Expr::AND &x, V &visitor) {
@@ -1362,20 +832,11 @@ template<typename V> void visit(const Expr::Concat &x, V &visitor) {
 }
 
 template<typename V> void visit(const Expr::DefinedBinary &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Expr::DefinedUnary &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Expr::Divide &x, V &visitor) {
@@ -1414,18 +875,11 @@ template<typename V> void visit(const Expr::GT &x, V &visitor) {
 }
 
 template<typename V> void visit(const Expr::IntrinsicBinary &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Expr::IntrinsicUnary &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const Expr::LE &x, V &visitor) {
@@ -1492,10 +946,7 @@ template<typename V> void visit(const Expr::Parentheses &x, V &visitor) {
 }
 
 template<typename V> void visit(const Expr::PercentLoc &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const Expr::Power &x, V &visitor) {
@@ -1520,101 +971,56 @@ template<typename V> void visit(const Expr::UnaryPlus &x, V &visitor) {
 }
 
 template<typename V> void visit(const ExternalStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const FileUnitNumber &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const FinalProcedureStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const FlushStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ForallAssignmentStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ForallBodyConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ForallConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ForallConstructStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ForallStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const FormTeamStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const FormTeamStmt::FormTeamSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const Format &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const FormatStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const Fortran::ControlEditDesc &x, V &visitor) {
@@ -1634,10 +1040,7 @@ void visit(const Fortran::DerivedTypeDataEditDesc &x, V &visitor) {
 }
 
 template<typename V> void visit(const Fortran::FormatItem &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V>
@@ -1652,184 +1055,96 @@ void visit(const Fortran::IntrinsicTypeDataEditDesc &x, V &visitor) {
 }
 
 template<typename V> void visit(const FunctionReference &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const FunctionStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const FunctionSubprogram &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const GenericSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const GenericStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const GotoStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IdExpr &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IdVariable &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IfConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const IfConstruct::ElseBlock &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const IfConstruct::ElseIfBlock &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const IfStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const IfThenStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ImageSelector &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ImageSelectorSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ImageSelectorSpec::Stat &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ImageSelectorSpec::Team &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V>
 void visit(const ImageSelectorSpec::Team_Number &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ImplicitPart &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ImplicitPartStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ImplicitSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ImplicitStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ImpliedShapeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ImportStmt &x, V &visitor) {
@@ -1840,172 +1155,92 @@ template<typename V> void visit(const ImportStmt &x, V &visitor) {
 }
 
 template<typename V> void visit(const Initialization &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const InputImpliedDo &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const InputItem &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const InquireSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const InquireSpec::CharVar &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const InquireSpec::IntVar &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const InquireSpec::LogVar &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const InquireStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const InquireStmt::Iolength &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const IntLiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const IntegerTypeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IntentStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const InterfaceBlock &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const InterfaceBody &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const InterfaceBody::Function &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const InterfaceBody::Subroutine &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const InterfaceSpecification &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const InterfaceStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const InternalSubprogram &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const InternalSubprogramPart &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const IntrinsicStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IntrinsicTypeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V>
@@ -2034,10 +1269,7 @@ void visit(const IntrinsicTypeSpec::Logical &x, V &visitor) {
 
 template<typename V>
 void visit(const IntrinsicTypeSpec::NCharacter &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IntrinsicTypeSpec::Real &x, V &visitor) {
@@ -2048,343 +1280,184 @@ template<typename V> void visit(const IntrinsicTypeSpec::Real &x, V &visitor) {
 }
 
 template<typename V> void visit(const IoControlSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V>
 void visit(const IoControlSpec::Asynchronous &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IoControlSpec::CharExpr &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const IoControlSpec::Pos &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IoControlSpec::Rec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IoControlSpec::Size &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const IoUnit &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const KindParam &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const LabelDoStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const LanguageBindingSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const LengthSelector &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const LetterSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const LiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const LocalitySpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const LocalitySpec::Local &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const LocalitySpec::LocalInit &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const LocalitySpec::Shared &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const LockStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const LockStmt::LockStat &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const LogicalLiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const LoopControl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const LoopControl::Concurrent &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const MainProgram &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Map &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const MaskedElsewhereStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Module &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ModuleStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ModuleSubprogram &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ModuleSubprogramPart &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const MpSubprogramStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const MsgVariable &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const NamedConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const NamedConstantDef &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const NamelistStmt::Group &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const NonLabelDoStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const NullifyStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ObjectDecl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Only &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const OpenStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const OptionalStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const OtherSpecificationStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const OutputImpliedDo &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const OutputItem &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ParameterStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ParentIdentifier &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const PartRef &x, V &visitor) {
@@ -2397,183 +1470,100 @@ template<typename V> void visit(const PartRef &x, V &visitor) {
 }
 
 template<typename V> void visit(const Pass &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const PauseStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const PointerAssignmentStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const PointerAssignmentStmt::Bounds &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const PointerDecl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const PointerObject &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const PointerStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const PositionOrFlushSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const PrefixSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const PrintStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const PrivateOrSequence &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcAttrSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcComponentAttrSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcComponentDefStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcComponentRef &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcDecl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcInterface &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcPointerInit &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcedureDeclarationStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcedureDesignator &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ProcedureStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Program &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ProgramUnit &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ProtectedStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const ReadStmt &x, V &visitor) {
@@ -2597,261 +1587,135 @@ template<typename V> void visit(const RealLiteralConstant &x, V &visitor) {
 }
 
 template<typename V> void visit(const RedimensionStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
-template<typename V> void visit(const Rename &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+template<typename V> void visit(const Rename &x, V &visitor) {
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const Rename::Names &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Rename::Operators &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const ReturnStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const RewindStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const SaveStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const SavedEntity &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SectionSubscript &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const SelectCaseStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SelectRankCaseStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SelectRankCaseStmt::Rank &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const SelectRankConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const SelectRankConstruct::RankCase &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SelectRankStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SelectTypeConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const SelectTypeConstruct::TypeCase &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SelectTypeStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Selector &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const SeparateModuleSubprogram &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const SignedComplexLiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SignedIntLiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const SignedRealLiteralConstant &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SpecificationConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const SpecificationExpr &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const SpecificationPart &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const StatOrErrmsg &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const StatVariable &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const StatusExpr &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const StmtFunctionStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const StopCode &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const StopStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const StructureComponent &x, V &visitor) {
@@ -2863,99 +1727,47 @@ template<typename V> void visit(const StructureComponent &x, V &visitor) {
 }
 
 template<typename V> void visit(const StructureConstructor &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const StructureDef &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const StructureField &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const StructureStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Submodule &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SubmoduleStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SubroutineStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SubroutineSubprogram &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SubscriptTriplet &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Substring &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SubstringRange &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const Suffix &x, V &visitor) {
@@ -2967,54 +1779,31 @@ template<typename V> void visit(const Suffix &x, V &visitor) {
 }
 
 template<typename V> void visit(const SyncAllStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const SyncImagesStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const SyncImagesStmt::ImageSet &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const SyncMemoryStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const SyncTeamStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TargetStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeAttrSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeAttrSpec::Extends &x, V &visitor) {
@@ -3025,43 +1814,23 @@ template<typename V> void visit(const TypeAttrSpec::Extends &x, V &visitor) {
 }
 
 template<typename V> void visit(const TypeBoundGenericStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeBoundProcBinding &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeBoundProcDecl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeBoundProcedurePart &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeBoundProcedureStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V>
@@ -3084,177 +1853,93 @@ void visit(const TypeBoundProcedureStmt::WithoutInterface &x, V &visitor) {
 }
 
 template<typename V> void visit(const TypeDeclarationStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeGuardStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeGuardStmt::Guard &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeParamDecl &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeParamDefStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeParamSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeParamValue &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const TypeSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const Union &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const UnlockStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const UseStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const ValueStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const Variable &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const VolatileStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const WaitSpec &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const WaitStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(x.v, visitor);
-    visitor.post(x);
-  }
+  VisitWrapperClass(x, visitor);
 }
 
 template<typename V> void visit(const WhereBodyConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    std::visit([&](const auto &y) { visit(y, visitor); }, x.u);
-    visitor.post(x);
-  }
+  VisitUnionClass(x, visitor);
 }
 
 template<typename V> void visit(const WhereConstruct &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visit(std::get<2>(x.t), visitor);
-    visit(std::get<3>(x.t), visitor);
-    visit(std::get<4>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const WhereConstruct::Elsewhere &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V>
 void visit(const WhereConstruct::MaskedElsewhere &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const WhereConstructStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const WhereStmt &x, V &visitor) {
-  if (visitor.pre(x)) {
-    visit(std::get<0>(x.t), visitor);
-    visit(std::get<1>(x.t), visitor);
-    visitor.post(x);
-  }
+  VisitTupleClass(x, visitor);
 }
 
 template<typename V> void visit(const WriteStmt &x, V &visitor) {