TYPE __ghdl_index_type IS UNSIGNED (32);

TYPE __ghdl_char IS UNSIGNED (8);

TYPE struct5 IS RECORD 
  c : __ghdl_char;
  i: __ghdl_index_type; 
END RECORD;

PUBLIC VAR var1 : struct5;