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