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