gcc/testsuite/algol68/execute/selection-multiple-1.a68


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

begin [10]struct (int age, string name) persons;

      for i to UPB persons
      do age of persons[i] := 20 + i;
         name of persons[i] := "x" * i
      od;

      for i to UPB name of persons
      do assert ((age of persons)[i] = 20 + i);
         assert ((name of persons)[i] = "x" * i)
      od
end