[flang-commits] [flang] [flang] Do not stop on mismatched DATA substring length (PR #69336)

[via flang-commits]

================
@@ -457,10 +457,11 @@ bool DataInitializationCompiler<DSV>::InitElement(
             folded.AsFortran(), DescribeElement());
       } else if (status == evaluate::InitialImage::OutOfRange) {
         OutOfRangeError();
-      } else if (status == evaluate::InitialImage::SizeMismatch) {
+      } else if (status == evaluate::InitialImage::LengthMismatch) {
----------------
jeanPerier wrote:

Maybe, right now it would fall through the CHECK below. I am not sure how to trigger the situation, I will try harder.

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