gcc/testsuite/algol68/execute/row-display-1.a68


1
2
3
4
5
6
7
8
9
10
11
12
13

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