type __ghdl_index_type is unsigned (32);

type __ghdl_char is unsigned (8);

type __ghdl_ptr is access __ghdl_char;

type __ghdl_rti_loc is union 
  offset: __ghdl_char;
  address: __ghdl_ptr; 
end union;

public constant var1 : __ghdl_rti_loc;
constant var1 := {.address = __ghdl_ptr'[null]};

public constant var2 : __ghdl_rti_loc;
constant var2 := {.offset = __ghdl_char'[0]};