%BEGIN
!***********************************************************************
!*    TESTS CLEARING RECORDARRAY FOR OVERWRITING OFF END               *
!***********************************************************************
%INTEGER I
%RECORDFORMAT F(%STRING(15)NAME,%INTEGER I,J,K,%LONGREAL X,Y, %C
      %LONGREALARRAY A(0:2))
%RECORD(F)%ARRAY ONE(1:100)
%RECORD(F)%ARRAY TWO(1:2)
      TWO(1)_NAME="PETE"
      %CYCLE I=1,1,100
         ONE(I)=0
      %REPEAT
      %IF TWO(1)_NAME#"PETE" %THEN PRINTSTRING("***ERROR***")%else %c
         printstring("TEST OK")

%ENDOFPROGRAM
