[flang-commits] [flang] [flang] Fix issues with STORAGE_SIZE and characters (PR #67561)

[Peter Klausler via flang-commits]

================
@@ -836,4 +836,15 @@ bool IsCUDAIntrinsicType(const DynamicType &type) {
   }
 }
 
+DynamicType DynamicType::DropNonConstantParameters() const {
+  if (charLengthParamValue_ && charLengthParamValue_->isExplicit()) {
+    if (std::optional<std::int64_t> len = knownLength()) {
+      return DynamicType(kind_, *len);
+    } else {
+      return DynamicType(category_, kind_);
+    }
+  }
+  return *this;
----------------
klausler wrote:

Please handle PDT LEN parameters as well, or add a TODO comment about them.

https://github.com/llvm/llvm-project/pull/67561