[flang] Fix DOT_PRODUCT for logical

[klausler]

Summary

A build-time check in a template class instantiation was applying
a test that's meaningful only for numeric types.

flang/runtime/dot-product.cpp

template <TypeCategory RCAT, int RKIND> struct DotProduct {
   using Result = CppTypeFor<RCAT, RKIND>;
   template <TypeCategory XCAT, int XKIND> struct DP1 {
     template <TypeCategory YCAT, int YKIND> struct DP2 {
       Result operator()(const Descriptor &x, const Descriptor &y,
           Terminator &terminator) const {
         if constexpr (constexpr auto resultType{
                           GetResultType(XCAT, XKIND, YCAT, YKIND)}) {
           if constexpr (resultType->first == RCAT &&
-              resultType->second <= RKIND) {
+              (resultType->second <= RKIND || RCAT == TypeCategory::Logical)) {
             return DoDotProduct<RCAT, RKIND, CppTypeFor<XCAT, XKIND>,
                 CppTypeFor<YCAT, YKIND>>(x, y, terminator);
           }
         }
         terminator.Crash(
             "DOT_PRODUCT(%d(%d)): bad operand types (%d(%d), %d(%d))",
             static_cast<int>(RCAT), RKIND, static_cast<int>(XCAT), XKIND,
             static_cast<int>(YCAT), YKIND);