begin
owninteger swopped =0
recordformat f1(integer i or byte b0,b1,b2,b3 or string(3)s)
recordformat f2(integer i,record(f1)f)
recordformat f3(integer k,record(f2)f)
integer i,fail,j,k
routine test(integer exp,swexp,act)
if swopped=0 start
      if exp=act then swopped=-1
      if swexp=act then swopped=1
finish
if swopped=-1 and exp=act then return
if swopped=1 and swexp=act then return
      printstring("expected="); write(exp,5)
      printstring(" actual="); write(act,5); newline
      fail=fail+1
      monitor
end
conststring(11) array tx(-1:1)="","","(swopped)";
record(f1) r1
record(f2) r2
record(f3) r3
fail=0
      j=0
l1:
r1_i=0
k=r1_I+j
r1_b3=5
test(5,X'05000000',r1_i)
test(5,x'05000000',r1_i+j)
r2_f_i=1
r2_f_b3=6
test(6,x'06000001',r2_f_i)
r3_f_f_i=1
r3_f_f_b3=6
test(6,x'06000001',r3_f_f_i)
if fail=0 then printstring("Test ok ".tx(swopped))
endofprogram