gcc/testsuite/algol68/execute/trimmer-8.a68


1
2
3
4
5
6
7
8
9

# { dg-options "-fstropping=upper" }  #
BEGIN [2:4]INT arr := []INT(1,2,3)[@2];
      ASSERT (arr[3] = 2 AND arr[4] = 3);
      [10:11]INT jorl := arr[:3 AT 10];
      ASSERT (LWB jorl = 10 AND UPB jorl = 11);
      ASSERT (jorl[10] = 1 AND jorl[11] = 2);
      jorl[10] := 100;
      ASSERT (jorl[10] = 100 AND jorl[11] = 2)
END