begin

  real x, r

  integer i
  realname rn
  realarray rra(0:9)
  realnamearray rna(0:9)
  realnamearrayname rnan
  realmap rm(integer i); result == r; end
  realmap rm2(integer i); result == rn; end
  realmap rm3(integer i); result == rra(i); end
  realmap rm4(integer i); result == rna(i); end
  realmap rm5(integer i); result == rnan(i); end
  rn == r
  x = r
  r = x
  x = rn
  rn = x
  x = rra(i)
  rra(i) = x
  rn == rra(i)
  x = rra(i)
  rn == rna(i)
  rna(i) = x
  x = rna(i)
  rnan == rna
  rn == rnan(i)
  rnan(i) = x
  x = rnan(i)
  x = rm(i)
  rn == rm(i)
  rm(i) = x
endofprogram