%begin
  ! see if we can remove redundant *& in assignment of 'that == buff(0)'
  %recordformat bfm(%integer i, j)

  %record (bfm) this, that

  ! need to implement with memset
  that = 0
  ! need to implement with memcpy
  this = that

%endofprogram