begin
recordformat f(integer i,j,k)
record(f) expopnd
routine test
record(f)space
record(f)name opnd1
opnd1==space
opnd1_i=13
expopnd=opnd1
end
test
if expopnd_i=13 then printstring("TEST OK") else printstring("FAIL")
endofprogram