gcc/testsuite/algol68/execute/ge-string-stride-1.a68

# { dg-options "-fstropping=upper" }  #
BEGIN [,]CHAR matrix = (("1", "0", "1"),
                        ("4", "0", "4"),
                        ("7", "0", "7"));
      ASSERT (matrix[1:3,1] >= matrix[1:3,3]);
      ASSERT (("1","4","7") >= matrix[1:3,3])
END