begin

  longreal x, r
  
  integer i
  longrealname rn
  longrealarray rra(0:9)
  longrealnamearray rna(0:9)
  longrealnamearrayname rnan
  longrealmap rm(integer i); result == r; end
  longrealmap rm2(integer i); result == rn; end
  longrealmap rm3(integer i); result == rra(i); end
  longrealmap rm4(integer i); result == rna(i); end
  longrealmap rm5(integer i); result == rnan(i); end
  rn == r
  x = r
  x = rn
  rn = x
  x = rra(i)
  rn == rra(i)
  x = rra(i)
  rra(i) = x
  rn == rna(i)
  x = rna(i)
  rnan == rna
  rn == rnan(i)
  x = rnan(i)
  rnan(i) = x
  rn == rm(i)
  x = rm(i)
  rm(i) = x
endofprogram