[flang] Allow BOZ initializers on REAL parameters, too.

Original-commit: flang-compiler/f18@e1ab6b3 Reviewed-on: flang-compiler/f18#590 Tree-same-pre-rewrite: false
llvm · Jul 17, 2019 · 3dbc1b7 · 3dbc1b7
1 parent 8187bc1
commit 3dbc1b7
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/flang/lib/evaluate/tools.cc b/flang/lib/evaluate/tools.cc
@@ -535,6 +535,10 @@ std::optional<Expr<SomeType>> ConvertToType(
     }
     return ConvertToNumeric<TypeCategory::Integer>(type.kind(), std::move(x));
   case TypeCategory::Real:
+    if (auto *boz{std::get_if<BOZLiteralConstant>(&x.u)}) {
+      return Expr<SomeType>{
+          ConvertToKind<TypeCategory::Real>(type.kind(), std::move(*boz))};
+    }
     return ConvertToNumeric<TypeCategory::Real>(type.kind(), std::move(x));
   case TypeCategory::Complex:
     return ConvertToNumeric<TypeCategory::Complex>(type.kind(), std::move(x));