110   auto typeCode{harvest.type().GetCategoryAndKind()};  in RTNAME()  local
111   RUNTIME_CHECK(terminator, typeCode && typeCode->first == TypeCategory::Real);  in RTNAME()
112   int kind{typeCode->second};  in RTNAME()
144   auto typeCode{size.type().GetCategoryAndKind()};  in RTNAME()  local
146       size.rank() == 0 && typeCode && typeCode->first == TypeCategory::Integer);  in RTNAME()
147   int kind{typeCode->second};  in RTNAME()
164   auto typeCode{put.type().GetCategoryAndKind()};  in RTNAME()  local
166       put.rank() == 1 && typeCode && typeCode->first == TypeCategory::Integer &&  in RTNAME()
168   int kind{typeCode->second};  in RTNAME()
198   auto typeCode{got.type().GetCategoryAndKind()};  in RTNAME()  local
200       got.rank() == 1 && typeCode && typeCode->first == TypeCategory::Integer &&  in RTNAME()
202   int kind{typeCode->second};  in RTNAME()