begin
  integer I
  real R
  recordformat test record(integer int a, real real b)
  record (test record) actual
  
  I = actual_int a
  R = actual_real b

endofprogram