%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