[flang] Allow for deferred-length character in EstablishDescriptor

[klausler]

Summary

When the runtime is initializing an instance of a derived type,
don't crash if an allocatable character component has deferred length.

[jeanPerier]

LGTM, thanks

flang/runtime/type-info.h

 
 class Value {
 public:
   enum class Genre : std::uint8_t {
     Deferred = 1,
     Explicit = 2,
     LenParameter = 3
   };
-
+  Genre genre() const { return genre_; }
   std::optional<TypeParameterValue> GetValue(const Descriptor *) const;
 
 private:
   Genre genre_{Genre::Explicit};
   // The value encodes an index into the table of LEN type parameters in
   // a descriptor's addendum for genre == Genre::LenParameter.
   TypeParameterValue value_{0};
 };

flang/runtime/type-info.cpp

if (genre() == Genre::Data) {
     return Descriptor::SizeInBytes(rank_);
   }
 }
 
 void Component::EstablishDescriptor(Descriptor &descriptor,
     const Descriptor &container, Terminator &terminator) const {
   TypeCategory cat{category()};
   if (cat == TypeCategory::Character) {
-    auto length{characterLen_.GetValue(&container)};
-    RUNTIME_CHECK(terminator, length.has_value());
-    descriptor.Establish(kind_, *length / kind_, nullptr, rank_);
+    std::size_t lengthInChars{0};
+    if (auto length{characterLen_.GetValue(&container)}) {
+      lengthInChars = static_cast<std::size_t>(*length / kind_);
+    } else {
+      RUNTIME_CHECK(
+          terminator, characterLen_.genre() == Value::Genre::Deferred);
+    }
+    descriptor.Establish(kind_, lengthInChars, nullptr, rank_);
   } else if (cat == TypeCategory::Derived) {
     const DerivedType *type{derivedType()};
     RUNTIME_CHECK(terminator, type != nullptr);
     descriptor.Establish(*type, nullptr, rank_);
   } else {
     descriptor.Establish(cat, kind_, nullptr, rank_);
   }
   if (rank_ && genre_ != Genre::Allocatable) {