%begin
%integer i
%recordformat vf(%integer x,y,%INTEGERARRAY A(1:10))
%record(vf) rr
%record(vf)%function recd(%integername n)
   %record(vf)r
   r_x=n
   r_y=n+1
   r_a(1)=n
   %result=r
%end
      i=10
      RR=RECD(I)
      i=recd(i)_y
      %if i=11 %and rr_a(1)=10 %then printstring("TEST OK") %and %stop
      printstring("TEST FAILED")
%endofprogram
