begin
  recordformat fancy(c
    integer A,
    integer b or integer c,
    real d)

  record(fancy) wreck
  
  wreck_a = wreck_c

endofprogram