BEGIN
RECORDFORMAT F(INTEGER I,J,K,L)
OWNRECORD(F)ARRAY A(-1:1)
RECORD(F)ARRAY B(-1:1)
RECORD(F) R
INTEGER I
      R=0
      CYCLE I=-1,1,1
         A(I)=R
         B(I)=R
      REPEAT
      PRINTSTRING("TEST OK")
ENDOFPROGRAM