path: root/gcc/testsuite/algol68/execute/trimmer-matrix-2.a68

# { dg-options "-fstropping=upper" }  #
BEGIN [,]INT matrix = ((1,2,3),
                       (4,5,6),
                       (7,8,9));
      [2]INT column := matrix[2,1:2];
      ASSERT (column[1] = 4);
      ASSERT (column[2] = 5)
END