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

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