%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