[flang-commits] [flang] [flang][runtime] Fix another IsContiguous edge case (PR #69199)

[via flang-commits]

================
@@ -393,13 +393,17 @@ class Descriptor {
     bool stridesAreContiguous{true};
     for (int j{0}; j < leadingDimensions; ++j) {
       const Dimension &dim{GetDimension(j)};
-      stridesAreContiguous &= bytes == dim.ByteStride();
+      stridesAreContiguous &= bytes == dim.ByteStride() | dim.Extent() == 1;
----------------
jeanPerier wrote:

Fixed, thanks for the review Pete!

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