begin
  recordformat simple(integer a, b)
  
  record (simple) rec
  record (simple) name ptr

  rec = 0

  rec_a = 1
  rec_b = rec_a
  ptr_a = 2
  ptr_b = ptr_a
  
endofprogram