%BEGIN
%RECORDFORMAT F(%INTEGER I,J,K,%INTEGERARRAY A(1:5))
%RECORD(F) R
%INTEGERARRAYNAME B
%INTEGER I,Fail
      Fail=0
      R_I='I'
      R_J='J'
      %CYCLE I=1,1,5
      R_A(I)=I
      %REPEAT
      R_K=255
      B==R_A
      %CYCLE I=1,1,5
         %if b(i)#i %then fail=1 %and WRITE(B(I),5)
      %REPEAT
%if fail=0 %then printstring("Test OK")
%ENDOFPROGRAM
