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