ghdllocal: clean post files.

8 files changed, 6 insertions, 9202 deletions

diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb
index 83c54260c..00e26a65c 100644
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -66,9 +66,6 @@ package body Ghdldrv is
    --  "-fpic" option.
    Dash_Fpic : constant String_Access := new String'("-fpic");
 
-   --  True if --post is present.
-   Flag_Postprocess : Boolean := False;
-
    --  If set, do not assmble
    Flag_Asm : Boolean;
 
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index fbc27087e..19481e88b 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -873,6 +873,9 @@ package body Ghdllocal is
       begin
          Delete (Str & Obj_Suffix.all & Nul);
          Delete (Str & Asm_Suffix & Nul);
+         if Flag_Postprocess then
+            Delete (Str & Post_Suffix & Nul);
+         end if;
       end Delete_Asm_Obj;
 
       procedure Delete_Top_Unit (Str : String) is
diff --git a/src/ghdldrv/ghdllocal.ads b/src/ghdldrv/ghdllocal.ads
index 3624543d8..ff66c4d59 100644
--- a/src/ghdldrv/ghdllocal.ads
+++ b/src/ghdldrv/ghdllocal.ads
@@ -56,6 +56,9 @@ package Ghdllocal is
    --  Set with -v option.
    Flag_Verbose : Boolean := False;
 
+   --  True if --post is present.
+   Flag_Postprocess : Boolean := False;
+
    --  Suffix for asm files.
    Asm_Suffix : constant String := ".s";
 
diff --git a/testsuite/gna/bug053/tb3.on b/testsuite/gna/bug053/tb3.on
deleted file mode 100644
index a525a49e4..000000000
--- a/testsuite/gna/bug053/tb3.on
+++ /dev/null
@@ -1,2170 +0,0 @@
--- internal declarations, part 1
-
-TYPE __ghdl_size_type IS UNSIGNED (32);
-
-TYPE __ghdl_index_type IS UNSIGNED (32);
-
-TYPE __ghdl_i32 IS SIGNED (32);
-
-TYPE __ghdl_real IS FLOAT;
-
-TYPE __ghdl_i64 IS SIGNED (64);
-
-TYPE __ghdl_file_index IS UNSIGNED (32);
-
-TYPE __ghdl_file_index_ptr IS ACCESS __ghdl_file_index;
-
-TYPE __ghdl_char IS UNSIGNED (8);
-
-TYPE __ghdl_chararray IS ARRAY [__ghdl_index_type] OF __ghdl_char;
-
-TYPE __ghdl_char_ptr IS ACCESS __ghdl_chararray;
-
-TYPE __ghdl_char_ptr_array IS ARRAY [__ghdl_index_type] OF __ghdl_char_ptr;
-
-TYPE __ghdl_char_ptr_array_ptr IS ACCESS __ghdl_char_ptr_array;
-
-TYPE __ghdl_ptr IS ACCESS __ghdl_char;
-
-TYPE __ghdl_str_len IS RECORD 
-  len: __ghdl_index_type; 
-  str: __ghdl_char_ptr; 
-END RECORD;
-
-TYPE __ghdl_str_len_array IS ARRAY [__ghdl_index_type] OF __ghdl_str_len;
-
-TYPE __ghdl_str_len_ptr IS ACCESS __ghdl_str_len;
-
-TYPE __ghdl_bool_type IS BOOLEAN {false, true};
-
-TYPE __ghdl_bool_array_type IS ARRAY [__ghdl_index_type] OF __ghdl_bool_type;
-
-TYPE __ghdl_bool_array_ptr IS ACCESS __ghdl_bool_array_type;
-
-TYPE __ghdl_compare_type IS ENUM {lt, eq, gt};
-
-TYPE __ghdl_location IS RECORD 
-  filename: __ghdl_char_ptr; 
-  line: __ghdl_i32; 
-  col: __ghdl_i32; 
-END RECORD;
-
-TYPE __ghdl_location_ptr IS ACCESS __ghdl_location;
-
-TYPE __ghdl_dir_type IS ENUM {dir_to, dir_downto};
-
-TYPE __ghdl_signal IS RECORD;
-
-TYPE __ghdl_signal_ptr IS ACCESS __ghdl_signal;
-
-EXTERNAL FUNCTION __ghdl_alloc (
-  size: __ghdl_size_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL PROCEDURE __ghdl_program_error (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32;
-  code: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_bound_check_failed_l1 (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_stack2_allocate (
-  size: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_stack2_mark (
-  )
-  RETURN __ghdl_ptr;
-
-EXTERNAL PROCEDURE __ghdl_stack2_release (
-  mark: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_memcpy (
-  dest: __ghdl_ptr;
-  src: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_deallocate (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL FUNCTION __ghdl_malloc (
-  length: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_malloc0 (
-  length: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_text_file_elaborate (
-  )
-  RETURN __ghdl_file_index;
-
-EXTERNAL FUNCTION __ghdl_file_elaborate (
-  NAME: __ghdl_char_ptr)
-  RETURN __ghdl_file_index;
-
-EXTERNAL PROCEDURE __ghdl_file_finalize (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_text_file_finalize (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_protected_enter (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_leave (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_init (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_fini (
-  OBJ: __ghdl_ptr);
-
-TYPE __ghdl_rtik IS ENUM {__ghdl_rtik_top, __ghdl_rtik_library,
-   __ghdl_rtik_package, __ghdl_rtik_package_body, __ghdl_rtik_entity,
-   __ghdl_rtik_architecture, __ghdl_rtik_process, __ghdl_rtik_block,
-   __ghdl_rtik_if_generate, __ghdl_rtik_case_generate,
-   __ghdl_rtik_for_generate, __ghdl_rtik_generate_body, __ghdl_rtik_instance,
-   __ghdl_rtik_constant, __ghdl_rtik_iterator, __ghdl_rtik_variable,
-   __ghdl_rtik_signal, __ghdl_rtik_file, __ghdl_rtik_port,
-   __ghdl_rtik_generic, __ghdl_rtik_alias, __ghdl_rtik_guard,
-   __ghdl_rtik_component, __ghdl_rtik_attribute, __ghdl_rtik_type_b1,
-   __ghdl_rtik_type_e8, __ghdl_rtik_type_e32, __ghdl_rtik_type_i32,
-   __ghdl_rtik_type_i64, __ghdl_rtik_type_f64, __ghdl_rtik_type_p32,
-   __ghdl_rtik_type_p64, __ghdl_rtik_type_access, __ghdl_rtik_type_array,
-   __ghdl_rtik_type_record, __ghdl_rtik_type_file, __ghdl_rtik_subtype_scalar,
-   __ghdl_rtik_subtype_array, __ghdl_rtik_subtype_unconstrained_array,
-   __ghdl_rtik_subtype_record, __ghdl_rtik_subtype_access,
-   __ghdl_rtik_type_protected, __ghdl_rtik_element, __ghdl_rtik_unit64,
-   __ghdl_rtik_unitptr, __ghdl_rtik_attribute_transaction,
-   __ghdl_rtik_attribute_quiet, __ghdl_rtik_attribute_stable,
-   __ghdl_rtik_psl_assert, __ghdl_rtik_psl_cover, __ghdl_rtik_psl_endpoint,
-   __ghdl_rtik_error};
-
-TYPE __ghdl_rti_depth IS UNSIGNED (8);
-
-TYPE __ghdl_rti_u8 IS UNSIGNED (8);
-
-TYPE __ghdl_rti_common IS RECORD 
-  kind: __ghdl_rtik; 
-  depth: __ghdl_rti_depth; 
-  mode: __ghdl_rti_u8; 
-  max_depth: __ghdl_rti_depth; 
-END RECORD;
-
-TYPE __ghdl_rti_access IS ACCESS __ghdl_rti_common;
-
-TYPE __ghdl_rti_array IS ARRAY [__ghdl_index_type] OF __ghdl_rti_access;
-
-TYPE __ghdl_rti_arr_acc IS ACCESS __ghdl_rti_array;
-
-TYPE __ghdl_component_link_type IS RECORD;
-
-TYPE __ghdl_component_link_acc IS ACCESS __ghdl_component_link_type;
-
-TYPE __ghdl_entity_link_type IS RECORD 
-  rti: __ghdl_rti_access; 
-  parent: __ghdl_component_link_acc; 
-END RECORD;
-
-TYPE __ghdl_entity_link_acc IS ACCESS __ghdl_entity_link_type;
-
-TYPE __ghdl_component_link_type IS RECORD 
-  INSTANCE: __ghdl_entity_link_acc; 
-  stmt: __ghdl_rti_access; 
-END RECORD;
-
-TYPE __ghdl_rtin_block IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  loc: __ghdl_ptr; 
-  linecol: __ghdl_index_type; 
-  parent: __ghdl_rti_access; 
-  nbr_child: __ghdl_index_type; 
-  children: __ghdl_rti_arr_acc; 
-END RECORD;
-
-TYPE __ghdl_rtin_generate IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  loc: __ghdl_ptr; 
-  linecol: __ghdl_index_type; 
-  parent: __ghdl_rti_access; 
-  size: __ghdl_index_type; 
-  child: __ghdl_rti_access; 
-END RECORD;
-
-TYPE __ghdl_rtin_block_file IS RECORD 
-  block: __ghdl_rtin_block; 
-  filename: __ghdl_char_ptr; 
-END RECORD;
-
-TYPE __ghdl_rtin_type_scalar IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-END RECORD;
-
-TYPE __ghdl_rtin_type_enum IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  nbr: __ghdl_index_type; 
-  lits: __ghdl_char_ptr_array_ptr; 
-END RECORD;
-
-TYPE __ghdl_rtin_subtype_scalar IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  base: __ghdl_rti_access; 
-  range: __ghdl_ptr; 
-END RECORD;
-
-TYPE __ghdl_rtin_unit64 IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  val: __ghdl_i64; 
-END RECORD;
-
-TYPE __ghdl_rtin_unitptr IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  addr: __ghdl_ptr; 
-END RECORD;
-
-TYPE __ghdl_rtin_type_physical IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  nbr: __ghdl_index_type; 
-  units: __ghdl_rti_arr_acc; 
-END RECORD;
-
-TYPE __ghdl_rtin_type_fileacc IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  base: __ghdl_rti_access; 
-END RECORD;
-
-TYPE __ghdl_rtin_type_array IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  element: __ghdl_rti_access; 
-  nbr_dim: __ghdl_index_type; 
-  indexes: __ghdl_rti_arr_acc; 
-END RECORD;
-
-TYPE __ghdl_rtin_subtype_array IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  basetype: __ghdl_rti_access; 
-  bounds: __ghdl_ptr; 
-  val_size: __ghdl_ptr; 
-  sig_size: __ghdl_ptr; 
-END RECORD;
-
-TYPE __ghdl_rtin_type_record IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  nbrel: __ghdl_index_type; 
-  elements: __ghdl_rti_arr_acc; 
-END RECORD;
-
-TYPE __ghdl_rtin_element IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  eltype: __ghdl_rti_access; 
-  val_off: __ghdl_index_type; 
-  sig_off: __ghdl_index_type; 
-END RECORD;
-
-TYPE __ghdl_rtin_object IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  loc: __ghdl_ptr; 
-  obj_type: __ghdl_rti_access; 
-  linecol: __ghdl_index_type; 
-END RECORD;
-
-TYPE __ghdl_rtin_instance IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  linecol: __ghdl_index_type; 
-  loc: __ghdl_ptr; 
-  parent: __ghdl_rti_access; 
-  instance: __ghdl_rti_access; 
-END RECORD;
-
-TYPE __ghdl_rtin_component IS RECORD 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  nbr_child: __ghdl_index_type; 
-  children: __ghdl_rti_arr_acc; 
-END RECORD;
-
-EXTERNAL PROCEDURE __ghdl_signal_name_rti (
-  OBJ: __ghdl_rti_access;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_sensitized_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_postponed_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_postponed_sensitized_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_finalize_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr);
-
--- package std.standard
-
-TYPE std__standard__boolean IS BOOLEAN {false, true};
-
-TYPE std__standard__boolean__PTR IS ACCESS std__standard__boolean;
-
-TYPE std__standard__boolean__TRT IS RECORD 
-  left: std__standard__boolean; 
-  right: std__standard__boolean; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__boolean__TRPTR IS ACCESS std__standard__boolean__TRT;
-
-TYPE std__standard__BOOLEAN_ARRAY IS ARRAY [__ghdl_index_type] OF 
-  std__standard__boolean;
-
-TYPE std__standard__bit IS BOOLEAN {C_0, C_1};
-
-TYPE std__standard__bit__PTR IS ACCESS std__standard__bit;
-
-TYPE std__standard__bit__TRT IS RECORD 
-  left: std__standard__bit; 
-  right: std__standard__bit; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__bit__TRPTR IS ACCESS std__standard__bit__TRT;
-
-TYPE std__standard__character IS ENUM {nul, soh, stx, etx, eot, enq, ack, bel,
-   bs, ht, lf, vt, ff, cr, so, si, dle, dc1, dc2, dc3, dc4, nak, syn, etb,
-   can, em, sub, esc, fsp, gsp, rsp, usp, C20, C21, C22, C23, C24, C25, C26,
-   C27, C28, C29, C2a, C2b, C2c, C2d, C2e, C2f, C_0, C_1, C_2, C_3, C_4, C_5,
-   C_6, C_7, C_8, C_9, C3a, C3b, C3c, C3d, C3e, C3f, C40, C_A, C_B, C_C, C_D,
-   C_E, C_F, C_G, C_H, C_I, C_J, C_K, C_L, C_M, C_N, C_O, C_P, C_Q, C_R, C_S,
-   C_T, C_U, C_V, C_W, C_X, C_Y, C_Z, C5b, C5c, C5d, C5e, C5f, C60, C_a, C_b,
-   C_c, C_d, C_e, C_f, C_g, C_h, C_i, C_j, C_k, C_l, C_m, C_n, C_o, C_p, C_q,
-   C_r, C_s, C_t, C_u, C_v, C_w, C_x, C_y, C_z, C7b, C7c, C7d, C7e, del, c128,
-   c129, c130, c131, c132, c133, c134, c135, c136, c137, c138, c139, c140,
-   c141, c142, c143, c144, c145, c146, c147, c148, c149, c150, c151, c152,
-   c153, c154, c155, c156, c157, c158, c159, Ca0, Ca1, Ca2, Ca3, Ca4, Ca5,
-   Ca6, Ca7, Ca8, Ca9, Caa, Cab, Cac, Cad, Cae, Caf, Cb0, Cb1, Cb2, Cb3, Cb4,
-   Cb5, Cb6, Cb7, Cb8, Cb9, Cba, Cbb, Cbc, Cbd, Cbe, Cbf, Cc0, Cc1, Cc2, Cc3,
-   Cc4, Cc5, Cc6, Cc7, Cc8, Cc9, Cca, Ccb, Ccc, Ccd, Cce, Ccf, Cd0, Cd1, Cd2,
-   Cd3, Cd4, Cd5, Cd6, Cd7, Cd8, Cd9, Cda, Cdb, Cdc, Cdd, Cde, Cdf, Ce0, Ce1,
-   Ce2, Ce3, Ce4, Ce5, Ce6, Ce7, Ce8, Ce9, Cea, Ceb, Cec, Ced, Cee, Cef, Cf0,
-   Cf1, Cf2, Cf3, Cf4, Cf5, Cf6, Cf7, Cf8, Cf9, Cfa, Cfb, Cfc, Cfd, Cfe, Cff};
-
-TYPE std__standard__character__PTR IS ACCESS std__standard__character;
-
-TYPE std__standard__character__TRT IS RECORD 
-  left: std__standard__character; 
-  right: std__standard__character; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__character__TRPTR IS ACCESS std__standard__character__TRT;
-
-EXTERNAL CONSTANT std__standard__character__BTR : std__standard__character__TRT
-  ;
-
-TYPE std__standard__severity_level IS ENUM {note, warning, error, failure};
-
-TYPE std__standard__severity_level__PTR IS ACCESS std__standard__severity_level
-  ;
-
-TYPE std__standard__severity_level__TRT IS RECORD 
-  left: std__standard__severity_level; 
-  right: std__standard__severity_level; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__severity_level__TRPTR IS ACCESS 
-  std__standard__severity_level__TRT;
-
-EXTERNAL CONSTANT std__standard__severity_level__BTR : 
-  std__standard__severity_level__TRT;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT IS SIGNED (64);
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__PTR IS ACCESS 
-  std__standard__UNIVERSAL_INTEGER__BT;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__TRT IS RECORD 
-  left: std__standard__UNIVERSAL_INTEGER__BT; 
-  right: std__standard__UNIVERSAL_INTEGER__BT; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__TRPTR IS ACCESS 
-  std__standard__UNIVERSAL_INTEGER__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__STR : 
-  std__standard__UNIVERSAL_INTEGER__BT__TRT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT IS FLOAT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__PTR IS ACCESS 
-  std__standard__UNIVERSAL_REAL__BT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__TRT IS RECORD 
-  left: std__standard__UNIVERSAL_REAL__BT; 
-  right: std__standard__UNIVERSAL_REAL__BT; 
-  dir: __ghdl_dir_type; 
-END RECORD;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__TRPTR IS ACCESS 
-  std__standard__UNIVERSAL_REAL__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__STR : 
-  std__standard__UNIVERSAL_REAL__BT__TRT;
-
-TYPE std__standard__integer__BT IS SIGNED (32);
-
-TYPE std__standard__integer__BT__PTR IS ACCESS std__standard__integer__BT;
-
-TYPE std__standard__integer__BT__TRT IS RECORD 
-  left: std__standard__integer__BT; 
-  right: std__standard__integer__BT; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__integer__BT__TRPTR IS ACCESS 
-  std__standard__integer__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__integer__STR : std__standard__integer__BT__TRT
-  ;
-
-TYPE std__standard__real__BT IS FLOAT;
-
-TYPE std__standard__real__BT__PTR IS ACCESS std__standard__real__BT;
-
-TYPE std__standard__real__BT__TRT IS RECORD 
-  left: std__standard__real__BT; 
-  right: std__standard__real__BT; 
-  dir: __ghdl_dir_type; 
-END RECORD;
-
-TYPE std__standard__real__BT__TRPTR IS ACCESS std__standard__real__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__real__STR : std__standard__real__BT__TRT;
-
-TYPE std__standard__time__BT IS SIGNED (64);
-
-TYPE std__standard__time__BT__PTR IS ACCESS std__standard__time__BT;
-
-TYPE std__standard__time__BT__TRT IS RECORD 
-  left: std__standard__time__BT; 
-  right: std__standard__time__BT; 
-  dir: __ghdl_dir_type; 
-END RECORD;
-
-TYPE std__standard__time__BT__TRPTR IS ACCESS std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__time__STR : std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__delay_length__STR : 
-  std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__natural__STR : std__standard__integer__BT__TRT
-  ;
-
-EXTERNAL CONSTANT std__standard__positive__STR : 
-  std__standard__integer__BT__TRT;
-
-TYPE std__standard__string__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__character;
-
-TYPE std__standard__string__BASEP IS ACCESS std__standard__string__BASE;
-
-TYPE std__standard__string__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__string__SIGBASEP IS ACCESS std__standard__string__SIGBASE;
-
-TYPE std__standard__string__BOUND IS RECORD 
-  dim_1: std__standard__integer__BT__TRT; 
-END RECORD;
-
-TYPE std__standard__string__BOUNDP IS ACCESS std__standard__string__BOUND;
-
-TYPE std__standard__string IS RECORD 
-  BASE: std__standard__string__BASEP; 
-  BOUNDS: std__standard__string__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__string__PTR IS ACCESS std__standard__string;
-
-TYPE std__standard__string__SIG IS RECORD 
-  BASE: std__standard__string__SIGBASEP; 
-  BOUNDS: std__standard__string__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__string__SIGPTR IS ACCESS std__standard__string__SIG;
-
-EXTERNAL FUNCTION std__standard__string_EQ (
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION std__standard__string_CMP (
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR)
-  RETURN __ghdl_compare_type;
-
-TYPE std__standard__boolean_vector__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__boolean;
-
-TYPE std__standard__boolean_vector__BASEP IS ACCESS 
-  std__standard__boolean_vector__BASE;
-
-TYPE std__standard__boolean_vector__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__boolean_vector__SIGBASEP IS ACCESS 
-  std__standard__boolean_vector__SIGBASE;
-
-TYPE std__standard__boolean_vector__BOUND IS RECORD 
-  dim_1: std__standard__integer__BT__TRT; 
-END RECORD;
-
-TYPE std__standard__boolean_vector__BOUNDP IS ACCESS 
-  std__standard__boolean_vector__BOUND;
-
-TYPE std__standard__boolean_vector IS RECORD 
-  BASE: std__standard__boolean_vector__BASEP; 
-  BOUNDS: std__standard__boolean_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__boolean_vector__PTR IS ACCESS std__standard__boolean_vector
-  ;
-
-TYPE std__standard__boolean_vector__SIG IS RECORD 
-  BASE: std__standard__boolean_vector__SIGBASEP; 
-  BOUNDS: std__standard__boolean_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__boolean_vector__SIGPTR IS ACCESS 
-  std__standard__boolean_vector__SIG;
-
-EXTERNAL FUNCTION std__standard__boolean_vector_EQ (
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__boolean_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION std__standard__boolean_vector_CMP (
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__boolean_vector__PTR)
-  RETURN __ghdl_compare_type;
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_NOT (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_AND (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__boolean_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_OR (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__boolean_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_NAND (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__boolean_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_NOR (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__boolean_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_XOR (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__boolean_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_XNOR (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__boolean_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_SHL (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__integer__BT);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_SHA (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__integer__BT);
-
-EXTERNAL PROCEDURE std__standard__boolean_vector_ROT (
-  res: std__standard__boolean_vector__PTR;
-  left: std__standard__boolean_vector__PTR;
-  right: std__standard__integer__BT);
-
-TYPE std__standard__bit_vector__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__bit;
-
-TYPE std__standard__bit_vector__BASEP IS ACCESS std__standard__bit_vector__BASE
-  ;
-
-TYPE std__standard__bit_vector__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__bit_vector__SIGBASEP IS ACCESS 
-  std__standard__bit_vector__SIGBASE;
-
-TYPE std__standard__bit_vector__BOUND IS RECORD 
-  dim_1: std__standard__integer__BT__TRT; 
-END RECORD;
-
-TYPE std__standard__bit_vector__BOUNDP IS ACCESS 
-  std__standard__bit_vector__BOUND;
-
-TYPE std__standard__bit_vector IS RECORD 
-  BASE: std__standard__bit_vector__BASEP; 
-  BOUNDS: std__standard__bit_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__bit_vector__PTR IS ACCESS std__standard__bit_vector;
-
-TYPE std__standard__bit_vector__SIG IS RECORD 
-  BASE: std__standard__bit_vector__SIGBASEP; 
-  BOUNDS: std__standard__bit_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__bit_vector__SIGPTR IS ACCESS std__standard__bit_vector__SIG
-  ;
-
-EXTERNAL FUNCTION std__standard__bit_vector_EQ (
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION std__standard__bit_vector_CMP (
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR)
-  RETURN __ghdl_compare_type;
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NOT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_AND (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_OR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NAND (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_XOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_XNOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_SHL (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_SHA (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_ROT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-TYPE std__standard__integer_vector__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__integer__BT;
-
-TYPE std__standard__integer_vector__BASEP IS ACCESS 
-  std__standard__integer_vector__BASE;
-
-TYPE std__standard__integer_vector__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__integer_vector__SIGBASEP IS ACCESS 
-  std__standard__integer_vector__SIGBASE;
-
-TYPE std__standard__integer_vector__BOUND IS RECORD 
-  dim_1: std__standard__integer__BT__TRT; 
-END RECORD;
-
-TYPE std__standard__integer_vector__BOUNDP IS ACCESS 
-  std__standard__integer_vector__BOUND;
-
-TYPE std__standard__integer_vector IS RECORD 
-  BASE: std__standard__integer_vector__BASEP; 
-  BOUNDS: std__standard__integer_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__integer_vector__PTR IS ACCESS std__standard__integer_vector
-  ;
-
-TYPE std__standard__integer_vector__SIG IS RECORD 
-  BASE: std__standard__integer_vector__SIGBASEP; 
-  BOUNDS: std__standard__integer_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__integer_vector__SIGPTR IS ACCESS 
-  std__standard__integer_vector__SIG;
-
-EXTERNAL FUNCTION std__standard__integer_vector_EQ (
-  left: std__standard__integer_vector__PTR;
-  right: std__standard__integer_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION std__standard__integer_vector_CMP (
-  left: std__standard__integer_vector__PTR;
-  right: std__standard__integer_vector__PTR)
-  RETURN __ghdl_compare_type;
-
-TYPE std__standard__real_vector__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__real__BT;
-
-TYPE std__standard__real_vector__BASEP IS ACCESS 
-  std__standard__real_vector__BASE;
-
-TYPE std__standard__real_vector__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__real_vector__SIGBASEP IS ACCESS 
-  std__standard__real_vector__SIGBASE;
-
-TYPE std__standard__real_vector__BOUND IS RECORD 
-  dim_1: std__standard__integer__BT__TRT; 
-END RECORD;
-
-TYPE std__standard__real_vector__BOUNDP IS ACCESS 
-  std__standard__real_vector__BOUND;
-
-TYPE std__standard__real_vector IS RECORD 
-  BASE: std__standard__real_vector__BASEP; 
-  BOUNDS: std__standard__real_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__real_vector__PTR IS ACCESS std__standard__real_vector;
-
-TYPE std__standard__real_vector__SIG IS RECORD 
-  BASE: std__standard__real_vector__SIGBASEP; 
-  BOUNDS: std__standard__real_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__real_vector__SIGPTR IS ACCESS 
-  std__standard__real_vector__SIG;
-
-EXTERNAL FUNCTION std__standard__real_vector_EQ (
-  left: std__standard__real_vector__PTR;
-  right: std__standard__real_vector__PTR)
-  RETURN std__standard__boolean;
-
-TYPE std__standard__time_vector__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__time__BT;
-
-TYPE std__standard__time_vector__BASEP IS ACCESS 
-  std__standard__time_vector__BASE;
-
-TYPE std__standard__time_vector__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__time_vector__SIGBASEP IS ACCESS 
-  std__standard__time_vector__SIGBASE;
-
-TYPE std__standard__time_vector__BOUND IS RECORD 
-  dim_1: std__standard__integer__BT__TRT; 
-END RECORD;
-
-TYPE std__standard__time_vector__BOUNDP IS ACCESS 
-  std__standard__time_vector__BOUND;
-
-TYPE std__standard__time_vector IS RECORD 
-  BASE: std__standard__time_vector__BASEP; 
-  BOUNDS: std__standard__time_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__time_vector__PTR IS ACCESS std__standard__time_vector;
-
-TYPE std__standard__time_vector__SIG IS RECORD 
-  BASE: std__standard__time_vector__SIGBASEP; 
-  BOUNDS: std__standard__time_vector__BOUNDP; 
-END RECORD;
-
-TYPE std__standard__time_vector__SIGPTR IS ACCESS 
-  std__standard__time_vector__SIG;
-
-EXTERNAL FUNCTION std__standard__time_vector_EQ (
-  left: std__standard__time_vector__PTR;
-  right: std__standard__time_vector__PTR)
-  RETURN std__standard__boolean;
-
-TYPE std__standard__file_open_kind IS ENUM {read_mode, write_mode,
-   append_mode};
-
-TYPE std__standard__file_open_kind__PTR IS ACCESS std__standard__file_open_kind
-  ;
-
-TYPE std__standard__file_open_kind__TRT IS RECORD 
-  left: std__standard__file_open_kind; 
-  right: std__standard__file_open_kind; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__file_open_kind__TRPTR IS ACCESS 
-  std__standard__file_open_kind__TRT;
-
-EXTERNAL CONSTANT std__standard__file_open_kind__BTR : 
-  std__standard__file_open_kind__TRT;
-
-TYPE std__standard__file_open_status IS ENUM {open_ok, status_error,
-   name_error, mode_error};
-
-TYPE std__standard__file_open_status__PTR IS ACCESS 
-  std__standard__file_open_status;
-
-TYPE std__standard__file_open_status__TRT IS RECORD 
-  left: std__standard__file_open_status; 
-  right: std__standard__file_open_status; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__file_open_status__TRPTR IS ACCESS 
-  std__standard__file_open_status__TRT;
-
-EXTERNAL CONSTANT std__standard__file_open_status__BTR : 
-  std__standard__file_open_status__TRT;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT IS SIGNED (64);
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__PTR IS ACCESS 
-  std__standard__CONVERTIBLE_INTEGER__BT;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__TRT IS RECORD 
-  left: std__standard__CONVERTIBLE_INTEGER__BT; 
-  right: std__standard__CONVERTIBLE_INTEGER__BT; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-END RECORD;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__TRPTR IS ACCESS 
-  std__standard__CONVERTIBLE_INTEGER__BT__TRT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT IS FLOAT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__PTR IS ACCESS 
-  std__standard__CONVERTIBLE_REAL__BT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__TRT IS RECORD 
-  left: std__standard__CONVERTIBLE_REAL__BT; 
-  right: std__standard__CONVERTIBLE_REAL__BT; 
-  dir: __ghdl_dir_type; 
-END RECORD;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__TRPTR IS ACCESS 
-  std__standard__CONVERTIBLE_REAL__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__RTI : __ghdl_rtin_block;
-
-EXTERNAL CONSTANT std__standard__boolean__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__bit__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__character__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__severity_level__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__BT__RTI : 
-  __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__BT__RTI : 
-  __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__integer__BT__RTI : __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__integer__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__real__BT__RTI : __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__real__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__time__BT__RTI : __ghdl_rtin_type_physical;
-
-EXTERNAL CONSTANT std__standard__time__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__delay_length__RTI : __ghdl_rtin_subtype_scalar
-  ;
-
-EXTERNAL CONSTANT std__standard__natural__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__positive__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__string__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__boolean_vector__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__bit_vector__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__integer_vector__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__real_vector__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__time_vector__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__file_open_kind__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__file_open_status__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__foreign__RTI : __ghdl_rtin_object;
-
-TYPE __ghdl_std_ulogic_boolean_array_type IS SUBARRAY 
-  std__standard__BOOLEAN_ARRAY[9];
-
-EXTERNAL CONSTANT __ghdl_std_ulogic_to_boolean_array : 
-  __ghdl_std_ulogic_boolean_array_type;
-
--- internal declarations, part 2
-
-EXTERNAL VAR __ghdl_now : std__standard__time__BT;
-
-EXTERNAL PROCEDURE __ghdl_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_ieee_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_cover (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_cover_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_report (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_text_write (
-  file: __ghdl_file_index;
-  str: std__standard__string__PTR);
-
-EXTERNAL FUNCTION __ghdl_text_read_length (
-  file: __ghdl_file_index;
-  str: std__standard__string__PTR)
-  RETURN std__standard__integer__BT;
-
-EXTERNAL PROCEDURE __ghdl_write_scalar (
-  file: __ghdl_file_index;
-  ptr: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_read_scalar (
-  file: __ghdl_file_index;
-  ptr: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL FUNCTION __ghdl_real_exp (
-  left: std__standard__real__BT;
-  right: std__standard__integer__BT)
-  RETURN std__standard__real__BT;
-
-EXTERNAL FUNCTION __ghdl_integer_exp (
-  left: std__standard__integer__BT;
-  right: std__standard__integer__BT)
-  RETURN std__standard__integer__BT;
-
-EXTERNAL PROCEDURE __ghdl_image_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_bool_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_b1 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_bool_type;
-
-EXTERNAL PROCEDURE __ghdl_image_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_e8 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_e32 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_i32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_value_i32 (
-  val: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_p32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_p32 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_p64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_p64 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i64;
-
-EXTERNAL PROCEDURE __ghdl_image_f64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_real);
-
-EXTERNAL FUNCTION __ghdl_value_f64 (
-  val: std__standard__string__PTR)
-  RETURN __ghdl_real;
-
-EXTERNAL PROCEDURE __ghdl_text_file_open (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR);
-
-EXTERNAL PROCEDURE __ghdl_file_open (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR);
-
-EXTERNAL FUNCTION __ghdl_text_file_open_status (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_file_open_status (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_file_endfile (
-  file: __ghdl_file_index)
-  RETURN std__standard__boolean;
-
-EXTERNAL PROCEDURE __ghdl_text_file_close (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_file_close (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_file_flush (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_signal_create_resolution (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  sig: __ghdl_ptr;
-  nbr_sig: __ghdl_index_type);
-
-TYPE __ghdl_scalar_bytes IS SUBARRAY __ghdl_chararray[8];
-
-TYPE __ghdl_signal IS RECORD 
-  driving_value: __ghdl_scalar_bytes; 
-  last_value: __ghdl_scalar_bytes; 
-  last_event: std__standard__time__BT; 
-  last_active: std__standard__time__BT; 
-  value: __ghdl_ptr; 
-  event: std__standard__boolean; 
-  active: std__standard__boolean; 
-  has_active: __ghdl_bool_type; 
-END RECORD;
-
-TYPE __ghdl_signal_ptr_ptr IS ACCESS __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_merge_rti (
-  sig: __ghdl_signal_ptr;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_source (
-  targ: __ghdl_signal_ptr;
-  src: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_effective_value (
-  targ: __ghdl_signal_ptr;
-  src: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_set_disconnect (
-  sig: __ghdl_signal_ptr;
-  time: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_disconnect (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL FUNCTION __ghdl_signal_get_nbr_drivers (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_index_type;
-
-EXTERNAL FUNCTION __ghdl_signal_get_nbr_ports (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_index_type;
-
-EXTERNAL FUNCTION __ghdl_signal_read_driver (
-  sig: __ghdl_signal_ptr;
-  num: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_read_port (
-  sig: __ghdl_signal_ptr;
-  num: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_driving (
-  sig: __ghdl_signal_ptr)
-  RETURN std__standard__boolean;
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_error (
-  sig: __ghdl_signal_ptr;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_error (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  after: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_error (
-  sig: __ghdl_signal_ptr;
-  after: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_null (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_null (
-  sig: __ghdl_signal_ptr;
-  after: std__standard__time__BT);
-
-EXTERNAL FUNCTION __ghdl_create_signal_e8 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_e8 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_e32 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_e32 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_b1 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_bool_type;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_b1 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_bool_type;
-
-EXTERNAL FUNCTION __ghdl_create_signal_i32 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_i32 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_f64 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_real;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_f64 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_real;
-
-EXTERNAL FUNCTION __ghdl_create_signal_i64 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i64;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_i64 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i64;
-
-EXTERNAL PROCEDURE __ghdl_process_add_sensitivity (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_add_driver (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_direct_driver (
-  sig: __ghdl_signal_ptr;
-  drv: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_direct_assign (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_in_conversion (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  src: __ghdl_signal_ptr;
-  src_len: __ghdl_index_type;
-  dst: __ghdl_signal_ptr;
-  dst_len: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_out_conversion (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  src: __ghdl_signal_ptr;
-  src_len: __ghdl_index_type;
-  dst: __ghdl_signal_ptr;
-  dst_len: __ghdl_index_type);
-
-EXTERNAL FUNCTION __ghdl_create_stable_signal (
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_create_quiet_signal (
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_create_transaction_signal (
-  val_ptr: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_attribute_register_prefix (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL FUNCTION __ghdl_create_delayed_signal (
-  sig: __ghdl_signal_ptr;
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_create_guard (
-  val_ptr: __ghdl_ptr;
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_guard_dependence (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_exit (
-  );
-
-EXTERNAL PROCEDURE __ghdl_process_wait_timeout (
-  time: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_set_timeout (
-  time: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_add_sensitivity (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_suspend (
-  );
-
-EXTERNAL FUNCTION __ghdl_process_wait_timed_out (
-  )
-  RETURN __ghdl_bool_type;
-
-EXTERNAL PROCEDURE __ghdl_process_wait_close (
-  );
-
-EXTERNAL PROCEDURE __ghdl_get_path_name (
-  res: std__standard__string__PTR;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr;
-  name: __ghdl_str_len_ptr);
-
-EXTERNAL PROCEDURE __ghdl_get_instance_name (
-  res: std__standard__string__PTR;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr;
-  name: __ghdl_str_len_ptr);
-
-EXTERNAL PROCEDURE __ghdl_rti_add_package (
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_rti_add_top (
-  max_pkgs: __ghdl_index_type;
-  pkgs: __ghdl_rti_arr_acc;
-  RTI: __ghdl_rti_access;
-  INSTANCE: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_init_top_generics (
-  );
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_eq (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_ne (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_lt (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_le (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_array_match_eq (
-  left: __ghdl_ptr;
-  l_len: __ghdl_index_type;
-  right: __ghdl_ptr;
-  r_len: __ghdl_index_type)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_array_match_ne (
-  left: __ghdl_ptr;
-  l_len: __ghdl_index_type;
-  right: __ghdl_ptr;
-  r_len: __ghdl_index_type)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_to_string_i32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_to_string_i64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64_digits (
-  res: std__standard__string__PTR;
-  val: __ghdl_real;
-  nbr_digits: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64_format (
-  res: std__standard__string__PTR;
-  val: __ghdl_real;
-  format: std__standard__string__PTR);
-
-EXTERNAL PROCEDURE __ghdl_bv_to_ostring (
-  res: std__standard__string__PTR;
-  val: std__standard__bit_vector__BASEP;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_bv_to_hstring (
-  res: std__standard__string__PTR;
-  val: std__standard__bit_vector__BASEP;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_to_string_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_bool_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_char (
-  res: std__standard__string__PTR;
-  val: std__standard__character);
-
-EXTERNAL PROCEDURE __ghdl_to_string_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_p32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_p64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_time_to_string_unit (
-  res: std__standard__string__PTR;
-  val: std__standard__time__BT;
-  unit: std__standard__time__BT;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
-PRIVATE CONSTANT _UI00000000 : SUBARRAY __ghdl_chararray[9];
-
-CONSTANT _UI00000000 := {116, 98, 51, 46, 118, 104, 100, 108, 0};
-
---F /Users/gingold/devel/ghdl/testsuite/gna/bug053/tb3.vhdl
-
--- package declaration pkg2
-
-PUBLIC CONSTANT work__pkg2__pkg1__c : std__standard__integer__BT;
-
-CONSTANT work__pkg2__pkg1__c := 5;
-
-PUBLIC FUNCTION work__pkg2__pkg1__f (
-  )
-  RETURN std__standard__integer__BT;
-
-PUBLIC VAR work__pkg2__ELABORATED : __ghdl_bool_type;
-
-PUBLIC PROCEDURE work__pkg2__ELAB_BODY (
-  );
-
-PUBLIC PROCEDURE work__pkg2__ELAB_SPEC (
-  );
-
-EXTERNAL CONSTANT work__RTI : __ghdl_rtin_type_scalar;
-
-PUBLIC CONSTANT work__pkg2__RTI : __ghdl_rtin_block_file;
-
-PUBLIC CONSTANT work__pkg2__pkg1__RTI : __ghdl_rtin_block;
-
-PUBLIC CONSTANT work__pkg2__pkg1__c__RTI : __ghdl_rtin_object;
-
-PRIVATE CONSTANT work__pkg2__pkg1__c__RTISTR : SUBARRAY __ghdl_chararray[2];
-
-CONSTANT work__pkg2__pkg1__c__RTISTR := {99, 0};
-
-CONSTANT work__pkg2__pkg1__c__RTI := {{__ghdl_rtik'[__ghdl_rtik_constant], 0,
-   0, 0}, __ghdl_char_ptr'unchecked_address (work__pkg2__pkg1__c__RTISTR),
-   __ghdl_ptr'unchecked_address (work__pkg2__pkg1__c),
-   __ghdl_rti_access'unchecked_address (std__standard__natural__RTI), 782};
-
-PRIVATE CONSTANT work__pkg2__pkg1__RTISTR : SUBARRAY __ghdl_chararray[5];
-
-CONSTANT work__pkg2__pkg1__RTISTR := {112, 107, 103, 49, 0};
-
-PRIVATE CONSTANT work__pkg2__pkg1__RTIARRAY : SUBARRAY __ghdl_rti_array[2];
-
-CONSTANT work__pkg2__pkg1__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (work__pkg2__pkg1__c__RTI),
-   __ghdl_rti_access'[NULL]};
-
-CONSTANT work__pkg2__pkg1__RTI := {{__ghdl_rtik'[__ghdl_rtik_package], 2, 0,
-   0}, __ghdl_char_ptr'address (work__pkg2__pkg1__RTISTR), __ghdl_ptr'[NULL],
-   523, __ghdl_rti_access'unchecked_address (work__pkg2__RTI), 1,
-   __ghdl_rti_arr_acc'address (work__pkg2__pkg1__RTIARRAY)};
-
-PRIVATE CONSTANT work__pkg2__RTISTR : SUBARRAY __ghdl_chararray[5];
-
-CONSTANT work__pkg2__RTISTR := {112, 107, 103, 50, 0};
-
-PRIVATE CONSTANT work__pkg2__RTIARRAY : SUBARRAY __ghdl_rti_array[1];
-
-CONSTANT work__pkg2__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__pkg2__RTI := {{{__ghdl_rtik'[__ghdl_rtik_package], 1, 0, 0},
-   __ghdl_char_ptr'address (work__pkg2__RTISTR), __ghdl_ptr'[NULL], 265,
-   __ghdl_rti_access'unchecked_address (work__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__pkg2__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-PUBLIC PROCEDURE work__pkg2__ELAB_SPEC (
-  )
-DECLARE
-BEGIN
-  __ghdl_rti_add_package (__ghdl_rti_access'unchecked_address (work__pkg2__RTI)
-    );
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/bug053/tb3.vhdl
-
--- package body pkg2
-
-PRIVATE CONSTANT work__pkg2__BODY__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__pkg2__BODY__RTISTR : SUBARRAY __ghdl_chararray[5];
-
-CONSTANT work__pkg2__BODY__RTISTR := {112, 107, 103, 49, 0};
-
-PRIVATE CONSTANT work__pkg2__BODY__RTIARRAY : SUBARRAY __ghdl_rti_array[1];
-
-CONSTANT work__pkg2__BODY__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__pkg2__BODY__RTI := {{__ghdl_rtik'[__ghdl_rtik_package_body], 1,
-   0, 0}, __ghdl_char_ptr'address (work__pkg2__BODY__RTISTR),
-   __ghdl_ptr'[NULL], 2320,
-   __ghdl_rti_access'unchecked_address (work__pkg2__pkg1__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__pkg2__BODY__RTIARRAY)};
-
-PUBLIC FUNCTION work__pkg2__pkg1__f (
-  )
-  RETURN std__standard__integer__BT
-DECLARE
-BEGIN
-  --# 12
-  DECLARE
-    LOCAL VAR T1_0 : std__standard__integer__BT;
-  BEGIN
-    T1_0 := 3;
-    RETURN T1_0;
-  END;
-END;
-
-PRIVATE CONSTANT work__pkg2__BODY__RTI : __ghdl_rtin_block_file;
-
-PRIVATE CONSTANT work__pkg2__BODY__pkg1__BODY__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__pkg2__BODY__pkg1__BODY__RTISTR : SUBARRAY 
-  __ghdl_chararray[5];
-
-CONSTANT work__pkg2__BODY__pkg1__BODY__RTISTR := {112, 107, 103, 49, 0};
-
-PRIVATE CONSTANT work__pkg2__BODY__pkg1__BODY__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__pkg2__BODY__pkg1__BODY__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__pkg2__BODY__pkg1__BODY__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_package_body], 2, 0, 0},
-   __ghdl_char_ptr'address (work__pkg2__BODY__pkg1__BODY__RTISTR),
-   __ghdl_ptr'[NULL], 2320,
-   __ghdl_rti_access'unchecked_address (work__pkg2__BODY__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__pkg2__BODY__pkg1__BODY__RTIARRAY)};
-
-PRIVATE CONSTANT work__pkg2__BODY__RTISTR : SUBARRAY __ghdl_chararray[5];
-
-CONSTANT work__pkg2__BODY__RTISTR := {112, 107, 103, 50, 0};
-
-PRIVATE CONSTANT work__pkg2__BODY__RTIARRAY : SUBARRAY __ghdl_rti_array[1];
-
-CONSTANT work__pkg2__BODY__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__pkg2__BODY__RTI := {{{__ghdl_rtik'[__ghdl_rtik_package_body],
-   1, 0, 0}, __ghdl_char_ptr'address (work__pkg2__BODY__RTISTR),
-   __ghdl_ptr'[NULL], 2062,
-   __ghdl_rti_access'unchecked_address (work__pkg2__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__pkg2__BODY__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-PUBLIC PROCEDURE work__pkg2__ELAB_BODY (
-  )
-DECLARE
-BEGIN
-  IF work__pkg2__ELABORATED THEN
-    RETURN ;
-  ELSE
-    work__pkg2__ELABORATED := __ghdl_bool_type'[true];
-  END IF;
-  work__pkg2__ELAB_SPEC ();
-  IF NOT work__pkg2__ELABORATED THEN
-    work__pkg2__ELAB_BODY ();
-  END IF;
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/bug053/tb3.vhdl
-
--- entity tb3
-
-TYPE work__tb3__INSTTYPE IS RECORD;
-
-TYPE work__tb3__INSTPTR IS ACCESS work__tb3__INSTTYPE;
-
-TYPE work__tb3__INSTTYPE IS RECORD 
-  RTI: __ghdl_entity_link_type; 
-END RECORD;
-
-PUBLIC PROCEDURE work__tb3__DECL_ELAB (
-  INSTANCE: work__tb3__INSTPTR);
-
-PUBLIC PROCEDURE work__tb3__STMT_ELAB (
-  INSTANCE: work__tb3__INSTPTR);
-
-PUBLIC PROCEDURE work__tb3__PKG_ELAB (
-  );
-
-PUBLIC CONSTANT work__tb3__RTI : __ghdl_rtin_block_file;
-
-PRIVATE CONSTANT work__tb3__RTISTR : SUBARRAY __ghdl_chararray[4];
-
-CONSTANT work__tb3__RTISTR := {116, 98, 51, 0};
-
-PRIVATE CONSTANT work__tb3__RTIARRAY : SUBARRAY __ghdl_rti_array[1];
-
-CONSTANT work__tb3__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__tb3__RTI := {{{__ghdl_rtik'[__ghdl_rtik_entity], 1, 0, 0},
-   __ghdl_char_ptr'address (work__tb3__RTISTR), __ghdl_ptr'[NULL], 4360,
-   __ghdl_rti_access'unchecked_address (work__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__tb3__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-PUBLIC PROCEDURE work__tb3__PKG_ELAB (
-  )
-DECLARE
-BEGIN
-  --# 17
-END;
-
-PUBLIC PROCEDURE work__tb3__DECL_ELAB (
-  INSTANCE: work__tb3__INSTPTR)
-DECLARE
-BEGIN
-  --# 17
-  --# 17
-END;
-
-PUBLIC PROCEDURE work__tb3__STMT_ELAB (
-  INSTANCE: work__tb3__INSTPTR)
-DECLARE
-BEGIN
-  --# 17
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/bug053/tb3.vhdl
-
--- architecture behav
-
-TYPE work__tb3__ARCH__behav__INSTTYPE IS RECORD;
-
-TYPE work__tb3__ARCH__behav__INSTPTR IS ACCESS work__tb3__ARCH__behav__INSTTYPE
-  ;
-
-TYPE work__tb3__ARCH__behav__P0__INSTTYPE IS RECORD 
-END RECORD;
-
-TYPE work__tb3__ARCH__behav__P1__INSTTYPE IS RECORD 
-END RECORD;
-
-TYPE work__tb3__ARCH__behav__P2__INSTTYPE IS RECORD 
-END RECORD;
-
-TYPE work__tb3__ARCH__behav__P3__INSTTYPE IS RECORD 
-END RECORD;
-
-TYPE work__tb3__ARCH__behav__INSTTYPE IS RECORD 
-  ENTITY: work__tb3__INSTTYPE; 
-  P0: work__tb3__ARCH__behav__P0__INSTTYPE; 
-  P1: work__tb3__ARCH__behav__P1__INSTTYPE; 
-  P2: work__tb3__ARCH__behav__P2__INSTTYPE; 
-  P3: work__tb3__ARCH__behav__P3__INSTTYPE; 
-END RECORD;
-
-PUBLIC CONSTANT work__tb3__ARCH__behav__INSTSIZE : __ghdl_index_type;
-
-CONSTANT work__tb3__ARCH__behav__INSTSIZE := __ghdl_index_type'sizeof (
-  work__tb3__ARCH__behav__INSTTYPE);
-
-PUBLIC PROCEDURE work__tb3__ARCH__behav__DECL_ELAB (
-  INSTANCE: work__tb3__INSTPTR);
-
-PUBLIC PROCEDURE work__tb3__ARCH__behav__STMT_ELAB (
-  INSTANCE: work__tb3__INSTPTR);
-
-PUBLIC CONSTANT work__tb3__ARCH__behav__RTI : __ghdl_rtin_block_file;
-
-PUBLIC CONSTANT work__tb3__ARCH__behav__P0__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__P0__RTISTR : SUBARRAY __ghdl_chararray
-  [3];
-
-CONSTANT work__tb3__ARCH__behav__P0__RTISTR := {80, 48, 0};
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__P0__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__tb3__ARCH__behav__P0__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__tb3__ARCH__behav__P0__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_process], 2, 0, 0},
-   __ghdl_char_ptr'address (work__tb3__ARCH__behav__P0__RTISTR),
-   __ghdl_ptr'offsetof (work__tb3__ARCH__behav__INSTTYPE.P0), 6147,
-   __ghdl_rti_access'unchecked_address (work__tb3__ARCH__behav__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__tb3__ARCH__behav__P0__RTIARRAY)};
-
-PUBLIC CONSTANT work__tb3__ARCH__behav__P1__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__P1__RTISTR : SUBARRAY __ghdl_chararray
-  [3];
-
-CONSTANT work__tb3__ARCH__behav__P1__RTISTR := {80, 49, 0};
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__P1__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__tb3__ARCH__behav__P1__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__tb3__ARCH__behav__P1__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_process], 2, 0, 0},
-   __ghdl_char_ptr'address (work__tb3__ARCH__behav__P1__RTISTR),
-   __ghdl_ptr'offsetof (work__tb3__ARCH__behav__INSTTYPE.P1), 6403,
-   __ghdl_rti_access'unchecked_address (work__tb3__ARCH__behav__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__tb3__ARCH__behav__P1__RTIARRAY)};
-
-PUBLIC CONSTANT work__tb3__ARCH__behav__P2__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__P2__RTISTR : SUBARRAY __ghdl_chararray
-  [3];
-
-CONSTANT work__tb3__ARCH__behav__P2__RTISTR := {80, 50, 0};
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__P2__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__tb3__ARCH__behav__P2__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__tb3__ARCH__behav__P2__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_process], 2, 0, 0},
-   __ghdl_char_ptr'address (work__tb3__ARCH__behav__P2__RTISTR),
-   __ghdl_ptr'offsetof (work__tb3__ARCH__behav__INSTTYPE.P2), 6659,
-   __ghdl_rti_access'unchecked_address (work__tb3__ARCH__behav__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__tb3__ARCH__behav__P2__RTIARRAY)};
-
-PUBLIC CONSTANT work__tb3__ARCH__behav__P3__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__P3__RTISTR : SUBARRAY __ghdl_chararray
-  [3];
-
-CONSTANT work__tb3__ARCH__behav__P3__RTISTR := {80, 51, 0};
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__P3__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__tb3__ARCH__behav__P3__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__tb3__ARCH__behav__P3__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_process], 2, 0, 0},
-   __ghdl_char_ptr'address (work__tb3__ARCH__behav__P3__RTISTR),
-   __ghdl_ptr'offsetof (work__tb3__ARCH__behav__INSTTYPE.P3), 6915,
-   __ghdl_rti_access'unchecked_address (work__tb3__ARCH__behav__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__tb3__ARCH__behav__P3__RTIARRAY)};
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__RTISTR : SUBARRAY __ghdl_chararray[6];
-
-CONSTANT work__tb3__ARCH__behav__RTISTR := {98, 101, 104, 97, 118, 0};
-
-PRIVATE CONSTANT work__tb3__ARCH__behav__RTIARRAY : SUBARRAY __ghdl_rti_array[5
-  ];
-
-CONSTANT work__tb3__ARCH__behav__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (work__tb3__ARCH__behav__P0__RTI),
-   __ghdl_rti_access'unchecked_address (work__tb3__ARCH__behav__P1__RTI),
-   __ghdl_rti_access'unchecked_address (work__tb3__ARCH__behav__P2__RTI),
-   __ghdl_rti_access'unchecked_address (work__tb3__ARCH__behav__P3__RTI),
-   __ghdl_rti_access'[NULL]};
-
-CONSTANT work__tb3__ARCH__behav__RTI := {{
-  {__ghdl_rtik'[__ghdl_rtik_architecture], 1, 0, 0},
-   __ghdl_char_ptr'address (work__tb3__ARCH__behav__RTISTR),
-   __ghdl_ptr'offsetof (work__tb3__ARCH__behav__INSTTYPE.ENTITY), 5646,
-   __ghdl_rti_access'unchecked_address (work__tb3__RTI), 4,
-   __ghdl_rti_arr_acc'address (work__tb3__ARCH__behav__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-
-PRIVATE PROCEDURE work__tb3__ARCH__behav__P0__PROC (
-  INSTANCE: work__tb3__ARCH__behav__INSTPTR)
-DECLARE
-BEGIN
-  --# 24
-END;
-
-
-PRIVATE PROCEDURE work__tb3__ARCH__behav__P1__PROC (
-  INSTANCE: work__tb3__ARCH__behav__INSTPTR)
-DECLARE
-  PRIVATE CONSTANT _UI00000001 : __ghdl_location;
-  CONSTANT _UI00000001 := {__ghdl_char_ptr'address (_UI00000000), 25, 3};
-  TYPE work__tb3__ARCH__behav__P1__U0 IS SUBARRAY std__standard__string__BASE[
-    16];
-  PRIVATE CONSTANT work__tb3__ARCH__behav__P1__U0__STB : 
-    std__standard__string__BOUND;
-  CONSTANT work__tb3__ARCH__behav__P1__U0__STB := {{1, 16,
-     __ghdl_dir_type'[dir_to], 16}};
-  PRIVATE CONSTANT _UI00000002 : work__tb3__ARCH__behav__P1__U0;
-  CONSTANT _UI00000002 := {std__standard__character'[C_v],
-     std__standard__character'[C_a], std__standard__character'[C_l],
-     std__standard__character'[C_u], std__standard__character'[C_e],
-     std__standard__character'[C20], std__standard__character'[C_i],
-     std__standard__character'[C_s], std__standard__character'[C20],
-     std__standard__character'[C_c], std__standard__character'[C_o],
-     std__standard__character'[C_r], std__standard__character'[C_r],
-     std__standard__character'[C_e], std__standard__character'[C_c],
-     std__standard__character'[C_t]};
-  PRIVATE CONSTANT _UI00000003 : std__standard__string;
-  CONSTANT _UI00000003 := {std__standard__string__BASEP'address (_UI00000002),
-     std__standard__string__BOUNDP'address (work__tb3__ARCH__behav__P1__U0__STB
-    )};
-BEGIN
-  --# 25
-  __ghdl_assert_failed (std__standard__string__PTR'address (_UI00000003), 
-    std__standard__severity_level'[note], __ghdl_location_ptr'address (
-    _UI00000001));
-END;
-
-
-PRIVATE PROCEDURE work__tb3__ARCH__behav__P2__PROC (
-  INSTANCE: work__tb3__ARCH__behav__INSTPTR)
-DECLARE
-  PRIVATE CONSTANT _UI00000004 : __ghdl_location;
-  CONSTANT _UI00000004 := {__ghdl_char_ptr'address (_UI00000000), 26, 3};
-BEGIN
-  --# 26
-  IF NOT std__standard__boolean'(work__pkg2__pkg1__f () = 3) THEN
-    __ghdl_assert_failed (std__standard__string__PTR'[NULL], 
-      std__standard__severity_level'[failure], __ghdl_location_ptr'address (
-      _UI00000004));
-  END IF;
-END;
-
-
-PRIVATE PROCEDURE work__tb3__ARCH__behav__P3__PROC (
-  INSTANCE: work__tb3__ARCH__behav__INSTPTR)
-DECLARE
-  PRIVATE CONSTANT _UI00000005 : __ghdl_location;
-  CONSTANT _UI00000005 := {__ghdl_char_ptr'address (_UI00000000), 27, 3};
-  TYPE work__tb3__ARCH__behav__P3__U0 IS SUBARRAY std__standard__string__BASE[
-    16];
-  PRIVATE CONSTANT work__tb3__ARCH__behav__P3__U0__STB : 
-    std__standard__string__BOUND;
-  CONSTANT work__tb3__ARCH__behav__P3__U0__STB := {{1, 16,
-     __ghdl_dir_type'[dir_to], 16}};
-  PRIVATE CONSTANT _UI00000006 : work__tb3__ARCH__behav__P3__U0;
-  CONSTANT _UI00000006 := {std__standard__character'[C_v],
-     std__standard__character'[C_a], std__standard__character'[C_l],
-     std__standard__character'[C_u], std__standard__character'[C_e],
-     std__standard__character'[C20], std__standard__character'[C_i],
-     std__standard__character'[C_s], std__standard__character'[C20],
-     std__standard__character'[C_c], std__standard__character'[C_o],
-     std__standard__character'[C_r], std__standard__character'[C_r],
-     std__standard__character'[C_e], std__standard__character'[C_c],
-     std__standard__character'[C_t]};
-  PRIVATE CONSTANT _UI00000007 : std__standard__string;
-  CONSTANT _UI00000007 := {std__standard__string__BASEP'address (_UI00000006),
-     std__standard__string__BOUNDP'address (work__tb3__ARCH__behav__P3__U0__STB
-    )};
-BEGIN
-  --# 27
-  IF NOT std__standard__boolean'(work__pkg2__pkg1__f () /= 3) THEN
-    __ghdl_assert_failed (std__standard__string__PTR'address (_UI00000007), 
-      std__standard__severity_level'[note], __ghdl_location_ptr'address (
-      _UI00000005));
-  END IF;
-END;
-
-PUBLIC PROCEDURE work__tb3__ARCH__behav__DECL_ELAB (
-  INSTANCE: work__tb3__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__tb3__ARCH__behav__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__tb3__ARCH__behav__INSTPTR'conv (INSTANCE);
-  INSTANCE.ALL.RTI.rti := __ghdl_rti_access'unchecked_address (
-    work__tb3__ARCH__behav__RTI);
-  work__tb3__DECL_ELAB (INSTANCE);
-  --# 22
-  IF NOT work__pkg2__ELABORATED THEN
-    work__pkg2__ELAB_BODY ();
-  END IF;
-  --# 22
-END;
-
-PUBLIC PROCEDURE work__tb3__ARCH__behav__STMT_ELAB (
-  INSTANCE: work__tb3__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__tb3__ARCH__behav__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__tb3__ARCH__behav__INSTPTR'conv (INSTANCE);
-  work__tb3__STMT_ELAB (INSTANCE);
-  --# 22
-  --# 24
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL), __ghdl_ptr'subprg_addr (
-    work__tb3__ARCH__behav__P0__PROC), __ghdl_rti_access'unchecked_address (
-    work__tb3__ARCH__behav__P0__RTI), __ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL.P0));
-  --# 25
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL), __ghdl_ptr'subprg_addr (
-    work__tb3__ARCH__behav__P1__PROC), __ghdl_rti_access'unchecked_address (
-    work__tb3__ARCH__behav__P1__RTI), __ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL.P1));
-  --# 26
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL), __ghdl_ptr'subprg_addr (
-    work__tb3__ARCH__behav__P2__PROC), __ghdl_rti_access'unchecked_address (
-    work__tb3__ARCH__behav__P2__RTI), __ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL.P2));
-  --# 27
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL), __ghdl_ptr'subprg_addr (
-    work__tb3__ARCH__behav__P3__PROC), __ghdl_rti_access'unchecked_address (
-    work__tb3__ARCH__behav__P3__RTI), __ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL.P3));
-END;
-
diff --git a/testsuite/gna/issue317/repro4.on b/testsuite/gna/issue317/repro4.on
deleted file mode 100644
index e69de29bb..000000000
--- a/testsuite/gna/issue317/repro4.on
+++ /dev/null
diff --git a/testsuite/gna/issue626/repro.on b/testsuite/gna/issue626/repro.on
deleted file mode 100644
index 49c9da637..000000000
--- a/testsuite/gna/issue626/repro.on
+++ /dev/null
@@ -1,2222 +0,0 @@
--- internal declarations, part 1
-
-TYPE __ghdl_size_type IS UNSIGNED (32);
-
-TYPE __ghdl_index_type IS UNSIGNED (32);
-
-TYPE __ghdl_i32 IS SIGNED (32);
-
-TYPE __ghdl_real IS FLOAT;
-
-TYPE __ghdl_i64 IS SIGNED (64);
-
-TYPE __ghdl_file_index IS UNSIGNED (32);
-
-TYPE __ghdl_file_index_ptr IS ACCESS __ghdl_file_index;
-
-TYPE __ghdl_char IS UNSIGNED (8);
-
-TYPE __ghdl_chararray IS ARRAY [__ghdl_index_type] OF __ghdl_char;
-
-TYPE __ghdl_char_ptr IS ACCESS __ghdl_chararray;
-
-TYPE __ghdl_char_ptr_array IS ARRAY [__ghdl_index_type] OF __ghdl_char_ptr;
-
-TYPE __ghdl_char_ptr_array_ptr IS ACCESS __ghdl_char_ptr_array;
-
-TYPE __ghdl_ptr IS ACCESS __ghdl_char;
-
-TYPE __ghdl_str_len IS RECORD
-  len: __ghdl_index_type;
-  str: __ghdl_char_ptr;
-END RECORD;
-
-TYPE __ghdl_str_len_array IS ARRAY [__ghdl_index_type] OF __ghdl_str_len;
-
-TYPE __ghdl_str_len_ptr IS ACCESS __ghdl_str_len;
-
-TYPE __ghdl_bool_type IS BOOLEAN {false, true};
-
-TYPE __ghdl_bool_array_type IS ARRAY [__ghdl_index_type] OF __ghdl_bool_type;
-
-TYPE __ghdl_bool_array_ptr IS ACCESS __ghdl_bool_array_type;
-
-TYPE __ghdl_sizes_type IS RECORD
-  size_val: __ghdl_index_type;
-  size_sig: __ghdl_index_type;
-END RECORD;
-
-TYPE __ghdl_compare_type IS ENUM {lt, eq, gt};
-
-TYPE __ghdl_location IS RECORD
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32;
-  col: __ghdl_i32;
-END RECORD;
-
-TYPE __ghdl_location_ptr IS ACCESS __ghdl_location;
-
-TYPE __ghdl_dir_type IS ENUM {dir_to, dir_downto};
-
-TYPE __ghdl_signal IS RECORD;
-
-TYPE __ghdl_signal_ptr IS ACCESS __ghdl_signal;
-
-EXTERNAL FUNCTION __ghdl_alloc (
-  size: __ghdl_size_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL PROCEDURE __ghdl_program_error (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32;
-  code: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_bound_check_failed (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_direction_check_failed (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_stack2_allocate (
-  size: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_stack2_mark (
-  )
-  RETURN __ghdl_ptr;
-
-EXTERNAL PROCEDURE __ghdl_stack2_release (
-  mark: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_memcpy (
-  dest: __ghdl_ptr;
-  src: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_deallocate (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL FUNCTION __ghdl_malloc (
-  length: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_malloc0 (
-  length: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_text_file_elaborate (
-  )
-  RETURN __ghdl_file_index;
-
-EXTERNAL FUNCTION __ghdl_file_elaborate (
-  NAME: __ghdl_char_ptr)
-  RETURN __ghdl_file_index;
-
-EXTERNAL PROCEDURE __ghdl_file_finalize (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_text_file_finalize (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_protected_enter (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_leave (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_init (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_fini (
-  OBJ: __ghdl_ptr);
-
-TYPE __ghdl_rtik IS ENUM {__ghdl_rtik_top, __ghdl_rtik_library,
-   __ghdl_rtik_package, __ghdl_rtik_package_body, __ghdl_rtik_entity,
-   __ghdl_rtik_architecture, __ghdl_rtik_process, __ghdl_rtik_block,
-   __ghdl_rtik_if_generate, __ghdl_rtik_case_generate,
-   __ghdl_rtik_for_generate, __ghdl_rtik_generate_body, __ghdl_rtik_instance,
-   __ghdl_rtik_constant, __ghdl_rtik_iterator, __ghdl_rtik_variable,
-   __ghdl_rtik_signal, __ghdl_rtik_file, __ghdl_rtik_port,
-   __ghdl_rtik_generic, __ghdl_rtik_alias, __ghdl_rtik_guard,
-   __ghdl_rtik_component, __ghdl_rtik_attribute, __ghdl_rtik_type_b1,
-   __ghdl_rtik_type_e8, __ghdl_rtik_type_e32, __ghdl_rtik_type_i32,
-   __ghdl_rtik_type_i64, __ghdl_rtik_type_f64, __ghdl_rtik_type_p32,
-   __ghdl_rtik_type_p64, __ghdl_rtik_type_access, __ghdl_rtik_type_array,
-   __ghdl_rtik_type_record, __ghdl_rtik_type_unbounded_record,
-   __ghdl_rtik_type_file, __ghdl_rtik_subtype_scalar,
-   __ghdl_rtik_subtype_array, __ghdl_rtik_subtype_unconstrained_array,
-   __ghdl_rtik_subtype_record, __ghdl_rtik_subtype_unbounded_record,
-   __ghdl_rtik_subtype_access, __ghdl_rtik_type_protected,
-   __ghdl_rtik_element, __ghdl_rtik_unit64, __ghdl_rtik_unitptr,
-   __ghdl_rtik_attribute_transaction, __ghdl_rtik_attribute_quiet,
-   __ghdl_rtik_attribute_stable, __ghdl_rtik_psl_assert,
-   __ghdl_rtik_psl_cover, __ghdl_rtik_psl_endpoint, __ghdl_rtik_error};
-
-TYPE __ghdl_rti_depth IS UNSIGNED (8);
-
-TYPE __ghdl_rti_u8 IS UNSIGNED (8);
-
-TYPE __ghdl_rti_common IS RECORD
-  kind: __ghdl_rtik;
-  depth: __ghdl_rti_depth;
-  mode: __ghdl_rti_u8;
-  max_depth: __ghdl_rti_depth;
-END RECORD;
-
-TYPE __ghdl_rti_access IS ACCESS __ghdl_rti_common;
-
-TYPE __ghdl_rti_array IS ARRAY [__ghdl_index_type] OF __ghdl_rti_access;
-
-TYPE __ghdl_rti_arr_acc IS ACCESS __ghdl_rti_array;
-
-TYPE __ghdl_component_link_type IS RECORD;
-
-TYPE __ghdl_component_link_acc IS ACCESS __ghdl_component_link_type;
-
-TYPE __ghdl_entity_link_type IS RECORD
-  rti: __ghdl_rti_access;
-  parent: __ghdl_component_link_acc;
-END RECORD;
-
-TYPE __ghdl_entity_link_acc IS ACCESS __ghdl_entity_link_type;
-
-TYPE __ghdl_component_link_type IS RECORD
-  INSTANCE: __ghdl_entity_link_acc;
-  stmt: __ghdl_rti_access;
-END RECORD;
-
-TYPE __ghdl_rtin_block IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  loc: __ghdl_ptr;
-  linecol: __ghdl_index_type;
-  parent: __ghdl_rti_access;
-  nbr_child: __ghdl_index_type;
-  children: __ghdl_rti_arr_acc;
-END RECORD;
-
-TYPE __ghdl_rtin_generate IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  loc: __ghdl_ptr;
-  linecol: __ghdl_index_type;
-  parent: __ghdl_rti_access;
-  size: __ghdl_index_type;
-  child: __ghdl_rti_access;
-END RECORD;
-
-TYPE __ghdl_rtin_block_file IS RECORD
-  block: __ghdl_rtin_block;
-  filename: __ghdl_char_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_type_scalar IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_type_enum IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  nbr: __ghdl_index_type;
-  lits: __ghdl_char_ptr_array_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_subtype_scalar IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  base: __ghdl_rti_access;
-  range: __ghdl_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_unit64 IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  val: __ghdl_i64;
-END RECORD;
-
-TYPE __ghdl_rtin_unitptr IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  addr: __ghdl_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_type_physical IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  nbr: __ghdl_index_type;
-  units: __ghdl_rti_arr_acc;
-END RECORD;
-
-TYPE __ghdl_rtin_type_fileacc IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  base: __ghdl_rti_access;
-END RECORD;
-
-TYPE __ghdl_rtin_type_array IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  element: __ghdl_rti_access;
-  nbr_dim: __ghdl_index_type;
-  indexes: __ghdl_rti_arr_acc;
-END RECORD;
-
-TYPE __ghdl_rtin_subtype_composite IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  basetype: __ghdl_rti_access;
-  bounds: __ghdl_ptr;
-  val_size: __ghdl_ptr;
-  sig_size: __ghdl_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_type_record IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  nbrel: __ghdl_index_type;
-  elements: __ghdl_rti_arr_acc;
-END RECORD;
-
-TYPE __ghdl_rtin_element IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  eltype: __ghdl_rti_access;
-  val_off: __ghdl_index_type;
-  sig_off: __ghdl_index_type;
-END RECORD;
-
-TYPE __ghdl_rtin_object IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  loc: __ghdl_ptr;
-  obj_type: __ghdl_rti_access;
-  linecol: __ghdl_index_type;
-END RECORD;
-
-TYPE __ghdl_rtin_instance IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  linecol: __ghdl_index_type;
-  loc: __ghdl_ptr;
-  parent: __ghdl_rti_access;
-  instance: __ghdl_rti_access;
-END RECORD;
-
-TYPE __ghdl_rtin_component IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  nbr_child: __ghdl_index_type;
-  children: __ghdl_rti_arr_acc;
-END RECORD;
-
-EXTERNAL PROCEDURE __ghdl_signal_name_rti (
-  OBJ: __ghdl_rti_access;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_sensitized_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_postponed_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_postponed_sensitized_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_finalize_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr);
-
--- package std.standard
-
-TYPE std__standard__boolean IS BOOLEAN {false, true};
-
-TYPE std__standard__boolean__PTR IS ACCESS std__standard__boolean;
-
-TYPE std__standard__boolean__TRT IS RECORD
-  left: std__standard__boolean;
-  right: std__standard__boolean;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__boolean__TRPTR IS ACCESS std__standard__boolean__TRT;
-
-TYPE std__standard__BOOLEAN_ARRAY IS ARRAY [__ghdl_index_type] OF 
-  std__standard__boolean;
-
-TYPE std__standard__bit IS BOOLEAN {C_0, C_1};
-
-TYPE std__standard__bit__PTR IS ACCESS std__standard__bit;
-
-TYPE std__standard__bit__TRT IS RECORD
-  left: std__standard__bit;
-  right: std__standard__bit;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__bit__TRPTR IS ACCESS std__standard__bit__TRT;
-
-TYPE std__standard__character IS ENUM {nul, soh, stx, etx, eot, enq, ack, bel,
-   bs, ht, lf, vt, ff, cr, so, si, dle, dc1, dc2, dc3, dc4, nak, syn, etb,
-   can, em, sub, esc, fsp, gsp, rsp, usp, C20, C21, C22, C23, C24, C25, C26,
-   C27, C28, C29, C2a, C2b, C2c, C2d, C2e, C2f, C_0, C_1, C_2, C_3, C_4, C_5,
-   C_6, C_7, C_8, C_9, C3a, C3b, C3c, C3d, C3e, C3f, C40, C_A, C_B, C_C, C_D,
-   C_E, C_F, C_G, C_H, C_I, C_J, C_K, C_L, C_M, C_N, C_O, C_P, C_Q, C_R, C_S,
-   C_T, C_U, C_V, C_W, C_X, C_Y, C_Z, C5b, C5c, C5d, C5e, C5f, C60, C_a, C_b,
-   C_c, C_d, C_e, C_f, C_g, C_h, C_i, C_j, C_k, C_l, C_m, C_n, C_o, C_p, C_q,
-   C_r, C_s, C_t, C_u, C_v, C_w, C_x, C_y, C_z, C7b, C7c, C7d, C7e, del, c128,
-   c129, c130, c131, c132, c133, c134, c135, c136, c137, c138, c139, c140,
-   c141, c142, c143, c144, c145, c146, c147, c148, c149, c150, c151, c152,
-   c153, c154, c155, c156, c157, c158, c159, Ca0, Ca1, Ca2, Ca3, Ca4, Ca5,
-   Ca6, Ca7, Ca8, Ca9, Caa, Cab, Cac, Cad, Cae, Caf, Cb0, Cb1, Cb2, Cb3, Cb4,
-   Cb5, Cb6, Cb7, Cb8, Cb9, Cba, Cbb, Cbc, Cbd, Cbe, Cbf, Cc0, Cc1, Cc2, Cc3,
-   Cc4, Cc5, Cc6, Cc7, Cc8, Cc9, Cca, Ccb, Ccc, Ccd, Cce, Ccf, Cd0, Cd1, Cd2,
-   Cd3, Cd4, Cd5, Cd6, Cd7, Cd8, Cd9, Cda, Cdb, Cdc, Cdd, Cde, Cdf, Ce0, Ce1,
-   Ce2, Ce3, Ce4, Ce5, Ce6, Ce7, Ce8, Ce9, Cea, Ceb, Cec, Ced, Cee, Cef, Cf0,
-   Cf1, Cf2, Cf3, Cf4, Cf5, Cf6, Cf7, Cf8, Cf9, Cfa, Cfb, Cfc, Cfd, Cfe, Cff};
-
-TYPE std__standard__character__PTR IS ACCESS std__standard__character;
-
-TYPE std__standard__character__TRT IS RECORD
-  left: std__standard__character;
-  right: std__standard__character;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__character__TRPTR IS ACCESS std__standard__character__TRT;
-
-EXTERNAL CONSTANT std__standard__character__BTR : std__standard__character__TRT
-  ;
-
-TYPE std__standard__severity_level IS ENUM {note, warning, error, failure};
-
-TYPE std__standard__severity_level__PTR IS ACCESS std__standard__severity_level
-  ;
-
-TYPE std__standard__severity_level__TRT IS RECORD
-  left: std__standard__severity_level;
-  right: std__standard__severity_level;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__severity_level__TRPTR IS ACCESS 
-  std__standard__severity_level__TRT;
-
-EXTERNAL CONSTANT std__standard__severity_level__BTR : 
-  std__standard__severity_level__TRT;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT IS SIGNED (64);
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__PTR IS ACCESS 
-  std__standard__UNIVERSAL_INTEGER__BT;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__TRT IS RECORD
-  left: std__standard__UNIVERSAL_INTEGER__BT;
-  right: std__standard__UNIVERSAL_INTEGER__BT;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__TRPTR IS ACCESS 
-  std__standard__UNIVERSAL_INTEGER__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__STR : 
-  std__standard__UNIVERSAL_INTEGER__BT__TRT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT IS FLOAT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__PTR IS ACCESS 
-  std__standard__UNIVERSAL_REAL__BT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__TRT IS RECORD
-  left: std__standard__UNIVERSAL_REAL__BT;
-  right: std__standard__UNIVERSAL_REAL__BT;
-  dir: __ghdl_dir_type;
-END RECORD;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__TRPTR IS ACCESS 
-  std__standard__UNIVERSAL_REAL__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__STR : 
-  std__standard__UNIVERSAL_REAL__BT__TRT;
-
-TYPE std__standard__integer__BT IS SIGNED (32);
-
-TYPE std__standard__integer__BT__PTR IS ACCESS std__standard__integer__BT;
-
-TYPE std__standard__integer__BT__TRT IS RECORD
-  left: std__standard__integer__BT;
-  right: std__standard__integer__BT;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__integer__BT__TRPTR IS ACCESS 
-  std__standard__integer__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__integer__STR : std__standard__integer__BT__TRT
-  ;
-
-TYPE std__standard__real__BT IS FLOAT;
-
-TYPE std__standard__real__BT__PTR IS ACCESS std__standard__real__BT;
-
-TYPE std__standard__real__BT__TRT IS RECORD
-  left: std__standard__real__BT;
-  right: std__standard__real__BT;
-  dir: __ghdl_dir_type;
-END RECORD;
-
-TYPE std__standard__real__BT__TRPTR IS ACCESS std__standard__real__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__real__STR : std__standard__real__BT__TRT;
-
-TYPE std__standard__time__BT IS SIGNED (64);
-
-TYPE std__standard__time__BT__PTR IS ACCESS std__standard__time__BT;
-
-TYPE std__standard__time__BT__TRT IS RECORD
-  left: std__standard__time__BT;
-  right: std__standard__time__BT;
-  dir: __ghdl_dir_type;
-END RECORD;
-
-TYPE std__standard__time__BT__TRPTR IS ACCESS std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__time__STR : std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__delay_length__STR : 
-  std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__natural__STR : std__standard__integer__BT__TRT
-  ;
-
-EXTERNAL CONSTANT std__standard__positive__STR : 
-  std__standard__integer__BT__TRT;
-
-TYPE std__standard__string__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__character;
-
-TYPE std__standard__string__BASEP IS ACCESS std__standard__string__BASE;
-
-TYPE std__standard__string__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__string__SIGBASEP IS ACCESS std__standard__string__SIGBASE;
-
-TYPE std__standard__string__BOUND IS RECORD
-  dim_1: std__standard__integer__BT__TRT;
-END RECORD;
-
-TYPE std__standard__string__BOUNDP IS ACCESS std__standard__string__BOUND;
-
-TYPE std__standard__string IS RECORD
-  BASE: std__standard__string__BASEP;
-  BOUNDS: std__standard__string__BOUNDP;
-END RECORD;
-
-TYPE std__standard__string__PTR IS ACCESS std__standard__string;
-
-TYPE std__standard__string__SIG IS RECORD
-  BASE: std__standard__string__SIGBASEP;
-  BOUNDS: std__standard__string__BOUNDP;
-END RECORD;
-
-TYPE std__standard__string__SIGPTR IS ACCESS std__standard__string__SIG;
-
-EXTERNAL FUNCTION std__standard__string_EQ (
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION std__standard__string_CMP (
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR)
-  RETURN __ghdl_compare_type;
-
-TYPE std__standard__bit_vector__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__bit;
-
-TYPE std__standard__bit_vector__BASEP IS ACCESS std__standard__bit_vector__BASE
-  ;
-
-TYPE std__standard__bit_vector__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__bit_vector__SIGBASEP IS ACCESS 
-  std__standard__bit_vector__SIGBASE;
-
-TYPE std__standard__bit_vector__BOUND IS RECORD
-  dim_1: std__standard__integer__BT__TRT;
-END RECORD;
-
-TYPE std__standard__bit_vector__BOUNDP IS ACCESS 
-  std__standard__bit_vector__BOUND;
-
-TYPE std__standard__bit_vector IS RECORD
-  BASE: std__standard__bit_vector__BASEP;
-  BOUNDS: std__standard__bit_vector__BOUNDP;
-END RECORD;
-
-TYPE std__standard__bit_vector__PTR IS ACCESS std__standard__bit_vector;
-
-TYPE std__standard__bit_vector__SIG IS RECORD
-  BASE: std__standard__bit_vector__SIGBASEP;
-  BOUNDS: std__standard__bit_vector__BOUNDP;
-END RECORD;
-
-TYPE std__standard__bit_vector__SIGPTR IS ACCESS std__standard__bit_vector__SIG
-  ;
-
-EXTERNAL FUNCTION std__standard__bit_vector_EQ (
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION std__standard__bit_vector_CMP (
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR)
-  RETURN __ghdl_compare_type;
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NOT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_AND (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_OR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NAND (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_XOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_XNOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_SHL (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_SHA (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_ROT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-TYPE std__standard__file_open_kind IS ENUM {read_mode, write_mode,
-   append_mode};
-
-TYPE std__standard__file_open_kind__PTR IS ACCESS std__standard__file_open_kind
-  ;
-
-TYPE std__standard__file_open_kind__TRT IS RECORD
-  left: std__standard__file_open_kind;
-  right: std__standard__file_open_kind;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__file_open_kind__TRPTR IS ACCESS 
-  std__standard__file_open_kind__TRT;
-
-EXTERNAL CONSTANT std__standard__file_open_kind__BTR : 
-  std__standard__file_open_kind__TRT;
-
-TYPE std__standard__file_open_status IS ENUM {open_ok, status_error,
-   name_error, mode_error};
-
-TYPE std__standard__file_open_status__PTR IS ACCESS 
-  std__standard__file_open_status;
-
-TYPE std__standard__file_open_status__TRT IS RECORD
-  left: std__standard__file_open_status;
-  right: std__standard__file_open_status;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__file_open_status__TRPTR IS ACCESS 
-  std__standard__file_open_status__TRT;
-
-EXTERNAL CONSTANT std__standard__file_open_status__BTR : 
-  std__standard__file_open_status__TRT;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT IS SIGNED (64);
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__PTR IS ACCESS 
-  std__standard__CONVERTIBLE_INTEGER__BT;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__TRT IS RECORD
-  left: std__standard__CONVERTIBLE_INTEGER__BT;
-  right: std__standard__CONVERTIBLE_INTEGER__BT;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__TRPTR IS ACCESS 
-  std__standard__CONVERTIBLE_INTEGER__BT__TRT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT IS FLOAT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__PTR IS ACCESS 
-  std__standard__CONVERTIBLE_REAL__BT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__TRT IS RECORD
-  left: std__standard__CONVERTIBLE_REAL__BT;
-  right: std__standard__CONVERTIBLE_REAL__BT;
-  dir: __ghdl_dir_type;
-END RECORD;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__TRPTR IS ACCESS 
-  std__standard__CONVERTIBLE_REAL__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__RTI : __ghdl_rtin_block;
-
-EXTERNAL CONSTANT std__standard__boolean__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__bit__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__character__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__severity_level__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__BT__RTI : 
-  __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__BT__RTI : 
-  __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__integer__BT__RTI : __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__integer__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__real__BT__RTI : __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__real__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__time__BT__RTI : __ghdl_rtin_type_physical;
-
-EXTERNAL CONSTANT std__standard__time__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__delay_length__RTI : __ghdl_rtin_subtype_scalar
-  ;
-
-EXTERNAL CONSTANT std__standard__natural__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__positive__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__string__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__bit_vector__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__file_open_kind__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__file_open_status__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__foreign__RTI : __ghdl_rtin_object;
-
-TYPE __ghdl_std_ulogic_boolean_array_type IS SUBARRAY 
-  std__standard__BOOLEAN_ARRAY[9];
-
-EXTERNAL CONSTANT __ghdl_std_ulogic_to_boolean_array : 
-  __ghdl_std_ulogic_boolean_array_type;
-
--- internal declarations, part 2
-
-EXTERNAL VAR __ghdl_now : std__standard__time__BT;
-
-EXTERNAL PROCEDURE __ghdl_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_ieee_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_cover (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_cover_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_report (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_text_write (
-  file: __ghdl_file_index;
-  str: std__standard__string__PTR);
-
-EXTERNAL FUNCTION __ghdl_text_read_length (
-  file: __ghdl_file_index;
-  str: std__standard__string__PTR)
-  RETURN std__standard__integer__BT;
-
-EXTERNAL PROCEDURE __ghdl_write_scalar (
-  file: __ghdl_file_index;
-  ptr: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_read_scalar (
-  file: __ghdl_file_index;
-  ptr: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL FUNCTION __ghdl_real_exp (
-  left: std__standard__real__BT;
-  right: std__standard__integer__BT)
-  RETURN std__standard__real__BT;
-
-EXTERNAL FUNCTION __ghdl_integer_exp (
-  left: std__standard__integer__BT;
-  right: std__standard__integer__BT)
-  RETURN std__standard__integer__BT;
-
-EXTERNAL PROCEDURE __ghdl_image_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_bool_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_b1 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_bool_type;
-
-EXTERNAL PROCEDURE __ghdl_image_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_e8 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_e32 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_i32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_value_i32 (
-  val: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_i64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64);
-
-EXTERNAL FUNCTION __ghdl_value_i64 (
-  val: std__standard__string__PTR)
-  RETURN __ghdl_i64;
-
-EXTERNAL PROCEDURE __ghdl_image_p32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_p32 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_p64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_p64 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i64;
-
-EXTERNAL PROCEDURE __ghdl_image_f64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_real);
-
-EXTERNAL FUNCTION __ghdl_value_f64 (
-  val: std__standard__string__PTR)
-  RETURN __ghdl_real;
-
-EXTERNAL PROCEDURE __ghdl_text_file_open (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR);
-
-EXTERNAL PROCEDURE __ghdl_file_open (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR);
-
-EXTERNAL FUNCTION __ghdl_text_file_open_status (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_file_open_status (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_file_endfile (
-  file: __ghdl_file_index)
-  RETURN std__standard__boolean;
-
-EXTERNAL PROCEDURE __ghdl_text_file_close (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_file_close (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_file_flush (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_signal_create_resolution (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  sig: __ghdl_ptr;
-  nbr_sig: __ghdl_index_type);
-
-TYPE __ghdl_scalar_bytes IS SUBARRAY __ghdl_chararray[8];
-
-TYPE __ghdl_signal IS RECORD
-  driving_value: __ghdl_scalar_bytes;
-  last_value: __ghdl_scalar_bytes;
-  last_event: std__standard__time__BT;
-  last_active: std__standard__time__BT;
-  value: __ghdl_ptr;
-  event: std__standard__boolean;
-  active: std__standard__boolean;
-  has_active: __ghdl_bool_type;
-END RECORD;
-
-TYPE __ghdl_signal_ptr_ptr IS ACCESS __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_merge_rti (
-  sig: __ghdl_signal_ptr;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_source (
-  targ: __ghdl_signal_ptr;
-  src: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_effective_value (
-  targ: __ghdl_signal_ptr;
-  src: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_set_disconnect (
-  sig: __ghdl_signal_ptr;
-  time: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_disconnect (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL FUNCTION __ghdl_signal_get_nbr_drivers (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_index_type;
-
-EXTERNAL FUNCTION __ghdl_signal_get_nbr_ports (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_index_type;
-
-EXTERNAL FUNCTION __ghdl_signal_read_driver (
-  sig: __ghdl_signal_ptr;
-  num: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_read_port (
-  sig: __ghdl_signal_ptr;
-  num: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_driving (
-  sig: __ghdl_signal_ptr)
-  RETURN std__standard__boolean;
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_error (
-  sig: __ghdl_signal_ptr;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_error (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  after: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_error (
-  sig: __ghdl_signal_ptr;
-  after: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_null (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_null (
-  sig: __ghdl_signal_ptr;
-  after: std__standard__time__BT);
-
-EXTERNAL FUNCTION __ghdl_create_signal_e8 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_e8 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_e32 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_e32 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_b1 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_bool_type;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_b1 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_bool_type;
-
-EXTERNAL FUNCTION __ghdl_create_signal_i32 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_i32 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_f64 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_real;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_f64 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_real;
-
-EXTERNAL FUNCTION __ghdl_create_signal_i64 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i64;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_i64 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i64;
-
-EXTERNAL PROCEDURE __ghdl_process_add_sensitivity (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_add_driver (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_direct_driver (
-  sig: __ghdl_signal_ptr;
-  drv: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_direct_assign (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_in_conversion (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  src: __ghdl_signal_ptr;
-  src_len: __ghdl_index_type;
-  dst: __ghdl_signal_ptr;
-  dst_len: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_out_conversion (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  src: __ghdl_signal_ptr;
-  src_len: __ghdl_index_type;
-  dst: __ghdl_signal_ptr;
-  dst_len: __ghdl_index_type);
-
-EXTERNAL FUNCTION __ghdl_create_stable_signal (
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_create_quiet_signal (
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_create_transaction_signal (
-  val_ptr: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_attribute_register_prefix (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL FUNCTION __ghdl_create_delayed_signal (
-  sig: __ghdl_signal_ptr;
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_create_guard (
-  val_ptr: __ghdl_ptr;
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_guard_dependence (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_exit (
-  );
-
-EXTERNAL PROCEDURE __ghdl_process_wait_timeout (
-  time: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_set_timeout (
-  time: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_add_sensitivity (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_suspend (
-  );
-
-EXTERNAL FUNCTION __ghdl_process_wait_timed_out (
-  )
-  RETURN __ghdl_bool_type;
-
-EXTERNAL PROCEDURE __ghdl_process_wait_close (
-  );
-
-EXTERNAL PROCEDURE __ghdl_get_path_name (
-  res: std__standard__string__PTR;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr;
-  name: __ghdl_str_len_ptr);
-
-EXTERNAL PROCEDURE __ghdl_get_instance_name (
-  res: std__standard__string__PTR;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr;
-  name: __ghdl_str_len_ptr);
-
-EXTERNAL PROCEDURE __ghdl_rti_add_package (
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_rti_add_top (
-  max_pkgs: __ghdl_index_type;
-  pkgs: __ghdl_rti_arr_acc;
-  RTI: __ghdl_rti_access;
-  INSTANCE: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_init_top_generics (
-  );
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_eq (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_ne (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_lt (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_le (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_array_match_eq (
-  left: __ghdl_ptr;
-  l_len: __ghdl_index_type;
-  right: __ghdl_ptr;
-  r_len: __ghdl_index_type)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_array_match_ne (
-  left: __ghdl_ptr;
-  l_len: __ghdl_index_type;
-  right: __ghdl_ptr;
-  r_len: __ghdl_index_type)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_to_string_i32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_to_string_i64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64_digits (
-  res: std__standard__string__PTR;
-  val: __ghdl_real;
-  nbr_digits: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64_format (
-  res: std__standard__string__PTR;
-  val: __ghdl_real;
-  format: std__standard__string__PTR);
-
-EXTERNAL PROCEDURE __ghdl_bv_to_ostring (
-  res: std__standard__string__PTR;
-  val: std__standard__bit_vector__BASEP;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_bv_to_hstring (
-  res: std__standard__string__PTR;
-  val: std__standard__bit_vector__BASEP;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_to_string_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_bool_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_char (
-  res: std__standard__string__PTR;
-  val: std__standard__character);
-
-EXTERNAL PROCEDURE __ghdl_to_string_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_p32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_p64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_time_to_string_unit (
-  res: std__standard__string__PTR;
-  val: std__standard__time__BT;
-  unit: std__standard__time__BT;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
-PRIVATE CONSTANT _UI00000000 : SUBARRAY __ghdl_chararray[11];
-
-CONSTANT _UI00000000 := {114, 101, 112, 114, 111, 46, 118, 104, 100, 108, 0};
-
---F /Users/gingold/devel/ghdl/testsuite/gna/issue626/repro.vhdl
-
--- entity inc
-
-TYPE work__inc__INSTTYPE IS RECORD;
-
-TYPE work__inc__INSTPTR IS ACCESS work__inc__INSTTYPE;
-
-TYPE work__inc__INSTTYPE IS RECORD
-  RTI: __ghdl_entity_link_type;
-  v: std__standard__integer__BT;
-  vec: std__standard__bit_vector;
-END RECORD;
-
-PUBLIC PROCEDURE work__inc__DECL_ELAB (
-  INSTANCE: work__inc__INSTPTR);
-
-PUBLIC PROCEDURE work__inc__STMT_ELAB (
-  INSTANCE: work__inc__INSTPTR);
-
-PUBLIC PROCEDURE work__inc__PKG_ELAB (
-  );
-
-EXTERNAL CONSTANT work__RTI : __ghdl_rtin_type_scalar;
-
-PUBLIC CONSTANT work__inc__RTI : __ghdl_rtin_block_file;
-
-PUBLIC CONSTANT work__inc__v__RTI : __ghdl_rtin_object;
-
-PRIVATE CONSTANT work__inc__v__RTISTR : SUBARRAY __ghdl_chararray[2];
-
-CONSTANT work__inc__v__RTISTR := {118, 0};
-
-CONSTANT work__inc__v__RTI := {{__ghdl_rtik'[__ghdl_rtik_generic], 1, 0, 0},
-   __ghdl_char_ptr'unchecked_address (work__inc__v__RTISTR),
-   __ghdl_ptr'offsetof (work__inc__INSTTYPE.v),
-   __ghdl_rti_access'unchecked_address (std__standard__natural__RTI), 529};
-
-PUBLIC CONSTANT work__inc__vec__RTI : __ghdl_rtin_object;
-
-PRIVATE CONSTANT work__inc__vec__RTISTR : SUBARRAY __ghdl_chararray[4];
-
-CONSTANT work__inc__vec__RTISTR := {118, 101, 99, 0};
-
-CONSTANT work__inc__vec__RTI := {{__ghdl_rtik'[__ghdl_rtik_generic], 1, 0, 0},
-   __ghdl_char_ptr'unchecked_address (work__inc__vec__RTISTR),
-   __ghdl_ptr'offsetof (work__inc__INSTTYPE.vec),
-   __ghdl_rti_access'unchecked_address (std__standard__bit_vector__RTI), 542};
-
-PRIVATE CONSTANT work__inc__RTISTR : SUBARRAY __ghdl_chararray[4];
-
-CONSTANT work__inc__RTISTR := {105, 110, 99, 0};
-
-PRIVATE CONSTANT work__inc__RTIARRAY : SUBARRAY __ghdl_rti_array[3];
-
-CONSTANT work__inc__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (work__inc__v__RTI),
-   __ghdl_rti_access'unchecked_address (work__inc__vec__RTI),
-   __ghdl_rti_access'[NULL]};
-
-CONSTANT work__inc__RTI := {{{__ghdl_rtik'[__ghdl_rtik_entity], 1, 0, 0},
-   __ghdl_char_ptr'address (work__inc__RTISTR), __ghdl_ptr'[NULL], 264,
-   __ghdl_rti_access'unchecked_address (work__RTI), 2,
-   __ghdl_rti_arr_acc'address (work__inc__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-PUBLIC PROCEDURE work__inc__PKG_ELAB (
-  )
-DECLARE
-BEGIN
-  --# 1
-END;
-
-PUBLIC PROCEDURE work__inc__DECL_ELAB (
-  INSTANCE: work__inc__INSTPTR)
-DECLARE
-BEGIN
-  --# 1
-  --# 1
-END;
-
-PUBLIC PROCEDURE work__inc__STMT_ELAB (
-  INSTANCE: work__inc__INSTPTR)
-DECLARE
-BEGIN
-  --# 1
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/issue626/repro.vhdl
-
--- architecture default
-
-TYPE work__inc__ARCH__default__INSTTYPE IS RECORD;
-
-TYPE work__inc__ARCH__default__INSTPTR IS ACCESS 
-  work__inc__ARCH__default__INSTTYPE;
-
-TYPE work__inc__ARCH__default__P0__INSTTYPE IS RECORD
-END RECORD;
-
-TYPE work__inc__ARCH__default__P1__INSTTYPE IS RECORD
-END RECORD;
-
-TYPE work__inc__ARCH__default__P2__INSTTYPE IS RECORD
-END RECORD;
-
-TYPE work__inc__ARCH__default__INSTTYPE IS RECORD
-  ENTITY: work__inc__INSTTYPE;
-  P0: work__inc__ARCH__default__P0__INSTTYPE;
-  P1: work__inc__ARCH__default__P1__INSTTYPE;
-  P2: work__inc__ARCH__default__P2__INSTTYPE;
-END RECORD;
-
-PUBLIC CONSTANT work__inc__ARCH__default__INSTSIZE : __ghdl_index_type;
-
-CONSTANT work__inc__ARCH__default__INSTSIZE := __ghdl_index_type'sizeof (
-  work__inc__ARCH__default__INSTTYPE);
-
-PUBLIC PROCEDURE work__inc__ARCH__default__DECL_ELAB (
-  INSTANCE: work__inc__INSTPTR);
-
-PUBLIC PROCEDURE work__inc__ARCH__default__STMT_ELAB (
-  INSTANCE: work__inc__INSTPTR);
-
-PUBLIC CONSTANT work__inc__ARCH__default__RTI : __ghdl_rtin_block_file;
-
-PUBLIC CONSTANT work__inc__ARCH__default__P0__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__inc__ARCH__default__P0__RTISTR : SUBARRAY 
-  __ghdl_chararray[3];
-
-CONSTANT work__inc__ARCH__default__P0__RTISTR := {80, 48, 0};
-
-PRIVATE CONSTANT work__inc__ARCH__default__P0__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__inc__ARCH__default__P0__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__inc__ARCH__default__P0__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_process], 2, 0, 0},
-   __ghdl_char_ptr'address (work__inc__ARCH__default__P0__RTISTR),
-   __ghdl_ptr'offsetof (work__inc__ARCH__default__INSTTYPE.P0), 1795,
-   __ghdl_rti_access'unchecked_address (work__inc__ARCH__default__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__inc__ARCH__default__P0__RTIARRAY)};
-
-PUBLIC CONSTANT work__inc__ARCH__default__P1__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__inc__ARCH__default__P1__RTISTR : SUBARRAY 
-  __ghdl_chararray[3];
-
-CONSTANT work__inc__ARCH__default__P1__RTISTR := {80, 49, 0};
-
-PRIVATE CONSTANT work__inc__ARCH__default__P1__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__inc__ARCH__default__P1__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__inc__ARCH__default__P1__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_process], 2, 0, 0},
-   __ghdl_char_ptr'address (work__inc__ARCH__default__P1__RTISTR),
-   __ghdl_ptr'offsetof (work__inc__ARCH__default__INSTTYPE.P1), 2051,
-   __ghdl_rti_access'unchecked_address (work__inc__ARCH__default__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__inc__ARCH__default__P1__RTIARRAY)};
-
-PUBLIC CONSTANT work__inc__ARCH__default__P2__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__inc__ARCH__default__P2__RTISTR : SUBARRAY 
-  __ghdl_chararray[3];
-
-CONSTANT work__inc__ARCH__default__P2__RTISTR := {80, 50, 0};
-
-PRIVATE CONSTANT work__inc__ARCH__default__P2__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__inc__ARCH__default__P2__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__inc__ARCH__default__P2__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_process], 2, 0, 0},
-   __ghdl_char_ptr'address (work__inc__ARCH__default__P2__RTISTR),
-   __ghdl_ptr'offsetof (work__inc__ARCH__default__INSTTYPE.P2), 2307,
-   __ghdl_rti_access'unchecked_address (work__inc__ARCH__default__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__inc__ARCH__default__P2__RTIARRAY)};
-
-PRIVATE CONSTANT work__inc__ARCH__default__RTISTR : SUBARRAY __ghdl_chararray[8
-  ];
-
-CONSTANT work__inc__ARCH__default__RTISTR := {100, 101, 102, 97, 117, 108,
-   116, 0};
-
-PRIVATE CONSTANT work__inc__ARCH__default__RTIARRAY : SUBARRAY __ghdl_rti_array
-  [4];
-
-CONSTANT work__inc__ARCH__default__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (work__inc__ARCH__default__P0__RTI),
-   __ghdl_rti_access'unchecked_address (work__inc__ARCH__default__P1__RTI),
-   __ghdl_rti_access'unchecked_address (work__inc__ARCH__default__P2__RTI),
-   __ghdl_rti_access'[NULL]};
-
-CONSTANT work__inc__ARCH__default__RTI := {{
-  {__ghdl_rtik'[__ghdl_rtik_architecture], 1, 0, 0},
-   __ghdl_char_ptr'address (work__inc__ARCH__default__RTISTR),
-   __ghdl_ptr'offsetof (work__inc__ARCH__default__INSTTYPE.ENTITY), 1294,
-   __ghdl_rti_access'unchecked_address (work__inc__RTI), 3,
-   __ghdl_rti_arr_acc'address (work__inc__ARCH__default__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-
-PRIVATE PROCEDURE work__inc__ARCH__default__P0__PROC (
-  INSTANCE: work__inc__ARCH__default__INSTPTR)
-DECLARE
-  PRIVATE CONSTANT _UI00000001 : __ghdl_location;
-  CONSTANT _UI00000001 := {__ghdl_char_ptr'address (_UI00000000), 7, 3};
-BEGIN
-  --# 7
-  IF NOT std__standard__boolean'(INSTANCE.ALL.ENTITY.vec.BOUNDS.ALL.dim_1.left 
-    = 0) THEN
-    __ghdl_assert_failed (std__standard__string__PTR'[NULL], 
-      std__standard__severity_level'[failure], __ghdl_location_ptr'address (
-      _UI00000001));
-  END IF;
-END;
-
-
-PRIVATE PROCEDURE work__inc__ARCH__default__P1__PROC (
-  INSTANCE: work__inc__ARCH__default__INSTPTR)
-DECLARE
-  PRIVATE CONSTANT _UI00000002 : __ghdl_location;
-  CONSTANT _UI00000002 := {__ghdl_char_ptr'address (_UI00000000), 8, 3};
-BEGIN
-  --# 8
-  IF NOT std__standard__boolean'(INSTANCE.ALL.ENTITY.vec.BOUNDS.ALL.dim_1.right
-     = INSTANCE.ALL.ENTITY.v) THEN
-    __ghdl_assert_failed (std__standard__string__PTR'[NULL], 
-      std__standard__severity_level'[failure], __ghdl_location_ptr'address (
-      _UI00000002));
-  END IF;
-END;
-
-
-PRIVATE PROCEDURE work__inc__ARCH__default__P2__PROC (
-  INSTANCE: work__inc__ARCH__default__INSTPTR)
-DECLARE
-  PRIVATE CONSTANT _UI00000003 : __ghdl_location;
-  CONSTANT _UI00000003 := {__ghdl_char_ptr'address (_UI00000000), 9, 3};
-BEGIN
-  --# 9
-  DECLARE
-    LOCAL VAR T0_0 : std__standard__string;
-    LOCAL VAR T0_1 : __ghdl_ptr;
-  BEGIN
-    T0_1 := __ghdl_stack2_mark ();
-    __ghdl_image_i32 (std__standard__string__PTR'address (T0_0), __ghdl_i32
-      'conv (INSTANCE.ALL.ENTITY.vec.BOUNDS.ALL.dim_1.right));
-    __ghdl_assert_failed (std__standard__string__PTR'address (T0_0), 
-      std__standard__severity_level'[error], __ghdl_location_ptr'address (
-      _UI00000003));
-    __ghdl_stack2_release (T0_1);
-  END;
-END;
-
-PUBLIC PROCEDURE work__inc__ARCH__default__DECL_ELAB (
-  INSTANCE: work__inc__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__inc__ARCH__default__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__inc__ARCH__default__INSTPTR'conv (INSTANCE);
-  INSTANCE.ALL.RTI.rti := __ghdl_rti_access'unchecked_address (
-    work__inc__ARCH__default__RTI);
-  work__inc__DECL_ELAB (INSTANCE);
-  --# 5
-  --# 5
-END;
-
-PUBLIC PROCEDURE work__inc__ARCH__default__STMT_ELAB (
-  INSTANCE: work__inc__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__inc__ARCH__default__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__inc__ARCH__default__INSTPTR'conv (INSTANCE);
-  work__inc__STMT_ELAB (INSTANCE);
-  --# 5
-  --# 7
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL), __ghdl_ptr'subprg_addr (
-    work__inc__ARCH__default__P0__PROC), __ghdl_rti_access'unchecked_address (
-    work__inc__ARCH__default__P0__RTI), __ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL.P0));
-  --# 8
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL), __ghdl_ptr'subprg_addr (
-    work__inc__ARCH__default__P1__PROC), __ghdl_rti_access'unchecked_address (
-    work__inc__ARCH__default__P1__RTI), __ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL.P1));
-  --# 9
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL), __ghdl_ptr'subprg_addr (
-    work__inc__ARCH__default__P2__PROC), __ghdl_rti_access'unchecked_address (
-    work__inc__ARCH__default__P2__RTI), __ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL.P2));
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/issue626/repro.vhdl
-
--- entity repro
-
-TYPE work__repro__INSTTYPE IS RECORD;
-
-TYPE work__repro__INSTPTR IS ACCESS work__repro__INSTTYPE;
-
-TYPE work__repro__INSTTYPE IS RECORD
-  RTI: __ghdl_entity_link_type;
-END RECORD;
-
-PUBLIC PROCEDURE work__repro__DECL_ELAB (
-  INSTANCE: work__repro__INSTPTR);
-
-PUBLIC PROCEDURE work__repro__STMT_ELAB (
-  INSTANCE: work__repro__INSTPTR);
-
-PUBLIC PROCEDURE work__repro__PKG_ELAB (
-  );
-
-PUBLIC CONSTANT work__repro__RTI : __ghdl_rtin_block_file;
-
-PRIVATE CONSTANT work__repro__RTISTR : SUBARRAY __ghdl_chararray[6];
-
-CONSTANT work__repro__RTISTR := {114, 101, 112, 114, 111, 0};
-
-PRIVATE CONSTANT work__repro__RTIARRAY : SUBARRAY __ghdl_rti_array[1];
-
-CONSTANT work__repro__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__repro__RTI := {{{__ghdl_rtik'[__ghdl_rtik_entity], 1, 0, 0},
-   __ghdl_char_ptr'address (work__repro__RTISTR), __ghdl_ptr'[NULL], 3080,
-   __ghdl_rti_access'unchecked_address (work__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__repro__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-PUBLIC PROCEDURE work__repro__PKG_ELAB (
-  )
-DECLARE
-BEGIN
-  --# 12
-END;
-
-PUBLIC PROCEDURE work__repro__DECL_ELAB (
-  INSTANCE: work__repro__INSTPTR)
-DECLARE
-BEGIN
-  --# 12
-  --# 12
-END;
-
-PUBLIC PROCEDURE work__repro__STMT_ELAB (
-  INSTANCE: work__repro__INSTPTR)
-DECLARE
-BEGIN
-  --# 12
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/issue626/repro.vhdl
-
--- architecture default
-
-TYPE work__repro__ARCH__default__INSTTYPE IS RECORD;
-
-TYPE work__repro__ARCH__default__INSTPTR IS ACCESS 
-  work__repro__ARCH__default__INSTTYPE;
-
-PUBLIC CONSTANT work__repro__ARCH__default__g__ix__OT__STR : 
-  std__standard__integer__BT__TRT;
-
-CONSTANT work__repro__ARCH__default__g__ix__OT__STR := {0, 4,
-   __ghdl_dir_type'[dir_to], 5};
-
-TYPE work__repro__ARCH__default__g__INSTTYPE IS RECORD;
-
-TYPE work__repro__ARCH__default__g__INSTPTR IS ACCESS 
-  work__repro__ARCH__default__g__INSTTYPE;
-
-TYPE work__repro__ARCH__default__g__INSTTYPE IS RECORD
-  ORIGIN: work__repro__ARCH__default__INSTPTR;
-  CONFIGURED: __ghdl_bool_type;
-  ix: std__standard__integer__BT;
-  inst: __ghdl_component_link_type;
-END RECORD;
-
-TYPE work__repro__ARCH__default__g__INSTARRTYPE IS ARRAY [__ghdl_index_type] OF
-   work__repro__ARCH__default__g__INSTTYPE;
-
-TYPE work__repro__ARCH__default__g__INSTARRPTR IS ACCESS 
-  work__repro__ARCH__default__g__INSTARRTYPE;
-
-TYPE work__repro__ARCH__default__INSTTYPE IS RECORD
-  ENTITY: work__repro__INSTTYPE;
-  g: work__repro__ARCH__default__g__INSTARRPTR;
-END RECORD;
-
-PUBLIC CONSTANT work__repro__ARCH__default__INSTSIZE : __ghdl_index_type;
-
-CONSTANT work__repro__ARCH__default__INSTSIZE := __ghdl_index_type'sizeof (
-  work__repro__ARCH__default__INSTTYPE);
-
-PUBLIC PROCEDURE work__repro__ARCH__default__DECL_ELAB (
-  INSTANCE: work__repro__INSTPTR);
-
-PUBLIC PROCEDURE work__repro__ARCH__default__STMT_ELAB (
-  INSTANCE: work__repro__INSTPTR);
-
-PUBLIC CONSTANT work__repro__ARCH__default__RTI : __ghdl_rtin_block_file;
-
-PUBLIC CONSTANT work__repro__ARCH__default__g__ITERATOR__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-CONSTANT work__repro__ARCH__default__g__ITERATOR__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_subtype_scalar], 0, 0, 0}, __ghdl_char_ptr'[NULL],
-   __ghdl_rti_access'unchecked_address (std__standard__integer__BT__RTI),
-   __ghdl_ptr'unchecked_address (work__repro__ARCH__default__g__ix__OT__STR)};
-
-PUBLIC CONSTANT work__repro__ARCH__default__g__RTI : __ghdl_rtin_generate;
-
-PUBLIC CONSTANT work__repro__ARCH__default__g__BOD__RTI : __ghdl_rtin_block;
-
-PUBLIC CONSTANT work__repro__ARCH__default__g__BOD__ix__RTI : 
-  __ghdl_rtin_object;
-
-PRIVATE CONSTANT work__repro__ARCH__default__g__BOD__ix__RTISTR : SUBARRAY 
-  __ghdl_chararray[3];
-
-CONSTANT work__repro__ARCH__default__g__BOD__ix__RTISTR := {105, 120, 0};
-
-CONSTANT work__repro__ARCH__default__g__BOD__ix__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_iterator], 3, 0, 0},
-   __ghdl_char_ptr'unchecked_address (
-  work__repro__ARCH__default__g__BOD__ix__RTISTR),
-   __ghdl_ptr'offsetof (work__repro__ARCH__default__g__INSTTYPE.ix),
-   __ghdl_rti_access'unchecked_address (
-  work__repro__ARCH__default__g__ITERATOR__RTI), 4112};
-
-PRIVATE CONSTANT work__repro__ARCH__default__g__BOD__inst__RTISTR : SUBARRAY 
-  __ghdl_chararray[5];
-
-CONSTANT work__repro__ARCH__default__g__BOD__inst__RTISTR := {105, 110, 115,
-   116, 0};
-
-PUBLIC CONSTANT work__repro__ARCH__default__g__BOD__inst__RTI : 
-  __ghdl_rtin_instance;
-
-CONSTANT work__repro__ARCH__default__g__BOD__inst__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_instance], 3, 0, 0},
-   __ghdl_char_ptr'address (work__repro__ARCH__default__g__BOD__inst__RTISTR),
-   4624, __ghdl_ptr'offsetof (work__repro__ARCH__default__g__INSTTYPE.inst),
-   __ghdl_rti_access'unchecked_address (work__repro__ARCH__default__g__BOD__RTI
-  ), __ghdl_rti_access'unchecked_address (work__inc__RTI)};
-
-PRIVATE CONSTANT work__repro__ARCH__default__g__BOD__RTISTR : SUBARRAY 
-  __ghdl_chararray[1];
-
-CONSTANT work__repro__ARCH__default__g__BOD__RTISTR := {0};
-
-PRIVATE CONSTANT work__repro__ARCH__default__g__BOD__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[3];
-
-CONSTANT work__repro__ARCH__default__g__BOD__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (
-  work__repro__ARCH__default__g__BOD__ix__RTI),
-   __ghdl_rti_access'unchecked_address (
-  work__repro__ARCH__default__g__BOD__inst__RTI), __ghdl_rti_access'[NULL]};
-
-CONSTANT work__repro__ARCH__default__g__BOD__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_generate_body], 3, 0, 0},
-   __ghdl_char_ptr'address (work__repro__ARCH__default__g__BOD__RTISTR),
-   __ghdl_ptr'[NULL], 4360,
-   __ghdl_rti_access'unchecked_address (work__repro__ARCH__default__g__RTI),
-   2,
-   __ghdl_rti_arr_acc'address (work__repro__ARCH__default__g__BOD__RTIARRAY)};
-
-PRIVATE CONSTANT work__repro__ARCH__default__g__RTISTR : SUBARRAY 
-  __ghdl_chararray[2];
-
-CONSTANT work__repro__ARCH__default__g__RTISTR := {103, 0};
-
-CONSTANT work__repro__ARCH__default__g__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_for_generate], 2, 0, 0},
-   __ghdl_char_ptr'address (work__repro__ARCH__default__g__RTISTR),
-   __ghdl_ptr'offsetof (work__repro__ARCH__default__INSTTYPE.g), 4104,
-   __ghdl_rti_access'unchecked_address (work__repro__ARCH__default__RTI),
-   __ghdl_index_type'sizeof (work__repro__ARCH__default__g__INSTTYPE),
-   __ghdl_rti_access'unchecked_address (work__repro__ARCH__default__g__BOD__RTI
-  )};
-
-PRIVATE CONSTANT work__repro__ARCH__default__RTISTR : SUBARRAY __ghdl_chararray
-  [8];
-
-CONSTANT work__repro__ARCH__default__RTISTR := {100, 101, 102, 97, 117, 108,
-   116, 0};
-
-PRIVATE CONSTANT work__repro__ARCH__default__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[3];
-
-CONSTANT work__repro__ARCH__default__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (
-  work__repro__ARCH__default__g__ITERATOR__RTI),
-   __ghdl_rti_access'unchecked_address (work__repro__ARCH__default__g__RTI),
-   __ghdl_rti_access'[NULL]};
-
-CONSTANT work__repro__ARCH__default__RTI := {{
-  {__ghdl_rtik'[__ghdl_rtik_architecture], 1, 0, 0},
-   __ghdl_char_ptr'address (work__repro__ARCH__default__RTISTR),
-   __ghdl_ptr'offsetof (work__repro__ARCH__default__INSTTYPE.ENTITY), 3598,
-   __ghdl_rti_access'unchecked_address (work__repro__RTI), 2,
-   __ghdl_rti_arr_acc'address (work__repro__ARCH__default__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-
-PRIVATE PROCEDURE work__repro__ARCH__default__g__inst__COMP_ELAB (
-  INSTANCE: work__repro__ARCH__default__g__INSTPTR)
-DECLARE
-  EXTERNAL CONSTANT work__inc__LASTARCH__INSTSIZE : __ghdl_index_type;
-  EXTERNAL PROCEDURE work__inc__LASTARCH__DECL_ELAB (
-    INSTANCE: work__inc__INSTPTR);
-  EXTERNAL PROCEDURE work__inc__LASTARCH__STMT_ELAB (
-    INSTANCE: work__inc__INSTPTR);
-  EXTERNAL PROCEDURE work__inc__LASTARCH__DEFAULT_CONFIG (
-    INSTANCE: work__inc__INSTPTR);
-  LOCAL VAR SUB_INSTANCE : work__inc__INSTPTR;
-  LOCAL VAR U0__SIZE : __ghdl_index_type;
-  LOCAL VAR U0__STB : std__standard__bit_vector__BOUND;
-BEGIN
-  --# 18
-  INSTANCE.ALL.inst.stmt := __ghdl_rti_access'unchecked_address (
-    work__repro__ARCH__default__g__BOD__inst__RTI);
-  SUB_INSTANCE := work__inc__INSTPTR'conv (__ghdl_malloc0 (
-    work__inc__LASTARCH__INSTSIZE));
-  INSTANCE.ALL.inst.INSTANCE := __ghdl_entity_link_acc'address (SUB_INSTANCE.
-    ALL.RTI);
-  SUB_INSTANCE.ALL.RTI.parent := __ghdl_component_link_acc'address (INSTANCE.
-    ALL.inst);
-  work__inc__PKG_ELAB ();
-  DECLARE
-    LOCAL VAR T0_0 : std__standard__integer__BT;
-  BEGIN
-    T0_0 := std__standard__integer__BT'conv (INSTANCE.ALL.ix);
-    IF __ghdl_bool_type'(T0_0 < 0) THEN
-      __ghdl_bound_check_failed (__ghdl_char_ptr'address (_UI00000000), 19);
-    END IF;
-    SUB_INSTANCE.ALL.v := T0_0;
-  END;
-  DECLARE
-    LOCAL VAR T2_0 : std__standard__integer__BT__TRPTR;
-  BEGIN
-    T2_0 := std__standard__integer__BT__TRPTR'address (U0__STB.dim_1);
-    T2_0.ALL.left := std__standard__integer__BT'conv (
-      std__standard__integer__BT'[0]);
-    T2_0.ALL.right := std__standard__integer__BT'conv (INSTANCE.ALL.ix);
-    T2_0.ALL.dir := __ghdl_dir_type'[dir_to];
-    DECLARE
-      LOCAL VAR T4_0 : __ghdl_index_type;
-    BEGIN
-      DECLARE
-        LOCAL VAR T5_0 : __ghdl_i32;
-      BEGIN
-        T5_0 := (__ghdl_i32'conv (T2_0.ALL.right) -# __ghdl_i32'conv (T2_0.ALL.
-          left));
-        IF __ghdl_bool_type'(T5_0 < 0) THEN
-          T4_0 := 0;
-        ELSE
-          T4_0 := (__ghdl_index_type'conv (T5_0) +# 1);
-        END IF;
-      END;
-      T2_0.ALL.length := T4_0;
-    END;
-  END;
-  U0__SIZE := (U0__STB.dim_1.length *# __ghdl_index_type'sizeof (
-    std__standard__bit));
-  DECLARE
-    LOCAL VAR T0_0 : std__standard__bit_vector__PTR;
-  BEGIN
-    T0_0 := std__standard__bit_vector__PTR'address (SUB_INSTANCE.ALL.vec);
-    T0_0.ALL.BOUNDS := std__standard__bit_vector__BOUNDP'address (U0__STB);
-    T0_0.ALL.BOUNDS := std__standard__bit_vector__BOUNDP'conv (__ghdl_malloc0 (
-      __ghdl_index_type'sizeof (std__standard__bit_vector__BOUND)));
-    __ghdl_memcpy (__ghdl_ptr'conv (T0_0.ALL.BOUNDS), __ghdl_ptr'conv (
-      std__standard__bit_vector__BOUNDP'address (U0__STB)), __ghdl_index_type
-      'sizeof (std__standard__bit_vector__BOUND));
-    T0_0.ALL.BASE := std__standard__bit_vector__BASEP'conv (__ghdl_malloc0 ((
-      T0_0.ALL.BOUNDS.ALL.dim_1.length *# __ghdl_index_type'sizeof (
-      std__standard__bit))));
-    DECLARE
-      LOCAL VAR T1_0 : std__standard__bit_vector__BASEP;
-      LOCAL VAR T1_1 : std__standard__bit_vector__BOUNDP;
-      LOCAL VAR T1_2 : __ghdl_index_type;
-    BEGIN
-      T1_0 := T0_0.ALL.BASE;
-      T1_1 := T0_0.ALL.BOUNDS;
-      DECLARE
-        LOCAL VAR T2_0 : std__standard__integer__BT__TRT;
-      BEGIN
-        T2_0.left := std__standard__integer__BT'conv (
-          std__standard__integer__BT'[0]);
-        T2_0.right := std__standard__integer__BT'conv (INSTANCE.ALL.ix);
-        T2_0.dir := __ghdl_dir_type'[dir_to];
-        DECLARE
-          LOCAL VAR T4_0 : __ghdl_index_type;
-        BEGIN
-          DECLARE
-            LOCAL VAR T5_0 : __ghdl_i32;
-          BEGIN
-            T5_0 := (__ghdl_i32'conv (T2_0.right) -# __ghdl_i32'conv (T2_0.left
-              ));
-            IF __ghdl_bool_type'(T5_0 < 0) THEN
-              T4_0 := 0;
-            ELSE
-              T4_0 := (__ghdl_index_type'conv (T5_0) +# 1);
-            END IF;
-          END;
-          T2_0.length := T4_0;
-        END;
-        IF __ghdl_bool_type'(T2_0.length /= T1_1.ALL.dim_1.length) THEN
-          __ghdl_bound_check_failed (__ghdl_char_ptr'address (_UI00000000), 20)
-            ;
-        END IF;
-      END;
-      T1_2 := 0;
-      DECLARE
-        LOCAL VAR T2_0 : __ghdl_index_type;
-        LOCAL VAR T2_1 : __ghdl_index_type;
-        LOCAL VAR T2_2 : __ghdl_index_type;
-      BEGIN
-        DECLARE
-          LOCAL VAR T3_0 : __ghdl_i32;
-        BEGIN
-          T3_0 := (__ghdl_i32'conv (INSTANCE.ALL.ix) -# __ghdl_i32'conv (
-            std__standard__integer__BT'[0]));
-          IF __ghdl_bool_type'(T3_0 < 0) THEN
-            T2_0 := 0;
-          ELSE
-            T2_0 := (__ghdl_index_type'conv (T3_0) +# 1);
-          END IF;
-        END;
-        T2_1 := T2_0;
-        T2_2 := 0;
-        LOOP 1:
-          IF __ghdl_bool_type'(T2_2 = T2_1) THEN
-            EXIT LOOP 1;
-          END IF;
-          T1_0.ALL[T1_2] := std__standard__bit'[C_1];
-          T1_2 := (T1_2 +# 1);
-          T2_2 := (T2_2 +# 1);
-        END LOOP;
-      END;
-    END;
-  END;
-  work__inc__LASTARCH__DECL_ELAB (SUB_INSTANCE);
-  work__inc__LASTARCH__STMT_ELAB (SUB_INSTANCE);
-  work__inc__LASTARCH__DEFAULT_CONFIG (work__inc__INSTPTR'conv (SUB_INSTANCE));
-END;
-
-PUBLIC PROCEDURE work__repro__ARCH__default__DECL_ELAB (
-  INSTANCE: work__repro__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__repro__ARCH__default__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__repro__ARCH__default__INSTPTR'conv (INSTANCE);
-  INSTANCE.ALL.RTI.rti := __ghdl_rti_access'unchecked_address (
-    work__repro__ARCH__default__RTI);
-  work__repro__DECL_ELAB (INSTANCE);
-  --# 14
-  --# 14
-  DECLARE
-    LOCAL VAR T0_0 : std__standard__integer__BT__TRPTR;
-    LOCAL VAR T0_1 : work__repro__ARCH__default__g__INSTARRPTR;
-    LOCAL VAR T0_2 : __ghdl_index_type;
-    LOCAL VAR T0_3 : work__repro__ARCH__default__g__INSTPTR;
-    LOCAL VAR T0_4 : std__standard__integer__BT;
-  BEGIN
-    T0_0 := std__standard__integer__BT__TRPTR'address (
-      work__repro__ARCH__default__g__ix__OT__STR);
-    T0_1 := work__repro__ARCH__default__g__INSTARRPTR'conv (__ghdl_malloc0 ((
-      T0_0.ALL.length *# __ghdl_index_type'sizeof (
-      work__repro__ARCH__default__g__INSTTYPE))));
-    ARCH_INSTANCE.ALL.g := T0_1;
-    T0_2 := 0;
-    LOOP 1:
-      IF __ghdl_bool_type'(T0_2 = T0_0.ALL.length) THEN
-        EXIT LOOP 1;
-      END IF;
-      T0_3 := work__repro__ARCH__default__g__INSTPTR'address (T0_1.ALL[T0_2]);
-      T0_3.ALL.ORIGIN := ARCH_INSTANCE;
-      T0_3.ALL.CONFIGURED := __ghdl_bool_type'[false];
-      IF __ghdl_bool_type'(T0_0.ALL.dir = __ghdl_dir_type'[dir_to]) THEN
-        T0_4 := T0_0.ALL.left;
-      ELSE
-        T0_4 := T0_0.ALL.right;
-      END IF;
-      T0_3.ALL.ix := (T0_4 +# std__standard__integer__BT'conv (T0_2));
-      --# 17
-      work__repro__ARCH__default__g__inst__COMP_ELAB (T0_3);
-      T0_2 := (T0_2 +# 1);
-    END LOOP;
-  END;
-END;
-
-PUBLIC PROCEDURE work__repro__ARCH__default__STMT_ELAB (
-  INSTANCE: work__repro__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__repro__ARCH__default__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__repro__ARCH__default__INSTPTR'conv (INSTANCE);
-  work__repro__STMT_ELAB (INSTANCE);
-  --# 14
-  DECLARE
-    LOCAL VAR T0_0 : work__repro__ARCH__default__g__INSTARRPTR;
-    LOCAL VAR T0_1 : __ghdl_index_type;
-    LOCAL VAR T0_2 : __ghdl_index_type;
-    LOCAL VAR T0_3 : work__repro__ARCH__default__g__INSTPTR;
-  BEGIN
-    T0_0 := ARCH_INSTANCE.ALL.g;
-    T0_1 := work__repro__ARCH__default__g__ix__OT__STR.length;
-    T0_2 := 0;
-    LOOP 1:
-      IF __ghdl_bool_type'(T0_2 = T0_1) THEN
-        EXIT LOOP 1;
-      END IF;
-      T0_3 := work__repro__ARCH__default__g__INSTPTR'address (T0_0.ALL[T0_2]);
-      T0_2 := (T0_2 +# 1);
-    END LOOP;
-  END;
-END;
-
diff --git a/testsuite/gna/issue626/top.on b/testsuite/gna/issue626/top.on
deleted file mode 100644
index be71e3424..000000000
--- a/testsuite/gna/issue626/top.on
+++ /dev/null
@@ -1,2845 +0,0 @@
--- internal declarations, part 1
-
-TYPE __ghdl_size_type IS UNSIGNED (32);
-
-TYPE __ghdl_index_type IS UNSIGNED (32);
-
-TYPE __ghdl_i32 IS SIGNED (32);
-
-TYPE __ghdl_real IS FLOAT;
-
-TYPE __ghdl_i64 IS SIGNED (64);
-
-TYPE __ghdl_file_index IS UNSIGNED (32);
-
-TYPE __ghdl_file_index_ptr IS ACCESS __ghdl_file_index;
-
-TYPE __ghdl_char IS UNSIGNED (8);
-
-TYPE __ghdl_chararray IS ARRAY [__ghdl_index_type] OF __ghdl_char;
-
-TYPE __ghdl_char_ptr IS ACCESS __ghdl_chararray;
-
-TYPE __ghdl_char_ptr_array IS ARRAY [__ghdl_index_type] OF __ghdl_char_ptr;
-
-TYPE __ghdl_char_ptr_array_ptr IS ACCESS __ghdl_char_ptr_array;
-
-TYPE __ghdl_ptr IS ACCESS __ghdl_char;
-
-TYPE __ghdl_str_len IS RECORD
-  len: __ghdl_index_type;
-  str: __ghdl_char_ptr;
-END RECORD;
-
-TYPE __ghdl_str_len_array IS ARRAY [__ghdl_index_type] OF __ghdl_str_len;
-
-TYPE __ghdl_str_len_ptr IS ACCESS __ghdl_str_len;
-
-TYPE __ghdl_bool_type IS BOOLEAN {false, true};
-
-TYPE __ghdl_bool_array_type IS ARRAY [__ghdl_index_type] OF __ghdl_bool_type;
-
-TYPE __ghdl_bool_array_ptr IS ACCESS __ghdl_bool_array_type;
-
-TYPE __ghdl_sizes_type IS RECORD
-  size_val: __ghdl_index_type;
-  size_sig: __ghdl_index_type;
-END RECORD;
-
-TYPE __ghdl_compare_type IS ENUM {lt, eq, gt};
-
-TYPE __ghdl_location IS RECORD
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32;
-  col: __ghdl_i32;
-END RECORD;
-
-TYPE __ghdl_location_ptr IS ACCESS __ghdl_location;
-
-TYPE __ghdl_dir_type IS ENUM {dir_to, dir_downto};
-
-TYPE __ghdl_signal IS RECORD;
-
-TYPE __ghdl_signal_ptr IS ACCESS __ghdl_signal;
-
-EXTERNAL FUNCTION __ghdl_alloc (
-  size: __ghdl_size_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL PROCEDURE __ghdl_program_error (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32;
-  code: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_bound_check_failed (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_direction_check_failed (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_stack2_allocate (
-  size: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_stack2_mark (
-  )
-  RETURN __ghdl_ptr;
-
-EXTERNAL PROCEDURE __ghdl_stack2_release (
-  mark: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_memcpy (
-  dest: __ghdl_ptr;
-  src: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_deallocate (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL FUNCTION __ghdl_malloc (
-  length: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_malloc0 (
-  length: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_text_file_elaborate (
-  )
-  RETURN __ghdl_file_index;
-
-EXTERNAL FUNCTION __ghdl_file_elaborate (
-  NAME: __ghdl_char_ptr)
-  RETURN __ghdl_file_index;
-
-EXTERNAL PROCEDURE __ghdl_file_finalize (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_text_file_finalize (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_protected_enter (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_leave (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_init (
-  OBJ: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_protected_fini (
-  OBJ: __ghdl_ptr);
-
-TYPE __ghdl_rtik IS ENUM {__ghdl_rtik_top, __ghdl_rtik_library,
-   __ghdl_rtik_package, __ghdl_rtik_package_body, __ghdl_rtik_entity,
-   __ghdl_rtik_architecture, __ghdl_rtik_process, __ghdl_rtik_block,
-   __ghdl_rtik_if_generate, __ghdl_rtik_case_generate,
-   __ghdl_rtik_for_generate, __ghdl_rtik_generate_body, __ghdl_rtik_instance,
-   __ghdl_rtik_constant, __ghdl_rtik_iterator, __ghdl_rtik_variable,
-   __ghdl_rtik_signal, __ghdl_rtik_file, __ghdl_rtik_port,
-   __ghdl_rtik_generic, __ghdl_rtik_alias, __ghdl_rtik_guard,
-   __ghdl_rtik_component, __ghdl_rtik_attribute, __ghdl_rtik_type_b1,
-   __ghdl_rtik_type_e8, __ghdl_rtik_type_e32, __ghdl_rtik_type_i32,
-   __ghdl_rtik_type_i64, __ghdl_rtik_type_f64, __ghdl_rtik_type_p32,
-   __ghdl_rtik_type_p64, __ghdl_rtik_type_access, __ghdl_rtik_type_array,
-   __ghdl_rtik_type_record, __ghdl_rtik_type_unbounded_record,
-   __ghdl_rtik_type_file, __ghdl_rtik_subtype_scalar,
-   __ghdl_rtik_subtype_array, __ghdl_rtik_subtype_unconstrained_array,
-   __ghdl_rtik_subtype_record, __ghdl_rtik_subtype_unbounded_record,
-   __ghdl_rtik_subtype_access, __ghdl_rtik_type_protected,
-   __ghdl_rtik_element, __ghdl_rtik_unit64, __ghdl_rtik_unitptr,
-   __ghdl_rtik_attribute_transaction, __ghdl_rtik_attribute_quiet,
-   __ghdl_rtik_attribute_stable, __ghdl_rtik_psl_assert,
-   __ghdl_rtik_psl_cover, __ghdl_rtik_psl_endpoint, __ghdl_rtik_error};
-
-TYPE __ghdl_rti_depth IS UNSIGNED (8);
-
-TYPE __ghdl_rti_u8 IS UNSIGNED (8);
-
-TYPE __ghdl_rti_common IS RECORD
-  kind: __ghdl_rtik;
-  depth: __ghdl_rti_depth;
-  mode: __ghdl_rti_u8;
-  max_depth: __ghdl_rti_depth;
-END RECORD;
-
-TYPE __ghdl_rti_access IS ACCESS __ghdl_rti_common;
-
-TYPE __ghdl_rti_array IS ARRAY [__ghdl_index_type] OF __ghdl_rti_access;
-
-TYPE __ghdl_rti_arr_acc IS ACCESS __ghdl_rti_array;
-
-TYPE __ghdl_component_link_type IS RECORD;
-
-TYPE __ghdl_component_link_acc IS ACCESS __ghdl_component_link_type;
-
-TYPE __ghdl_entity_link_type IS RECORD
-  rti: __ghdl_rti_access;
-  parent: __ghdl_component_link_acc;
-END RECORD;
-
-TYPE __ghdl_entity_link_acc IS ACCESS __ghdl_entity_link_type;
-
-TYPE __ghdl_component_link_type IS RECORD
-  INSTANCE: __ghdl_entity_link_acc;
-  stmt: __ghdl_rti_access;
-END RECORD;
-
-TYPE __ghdl_rtin_block IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  loc: __ghdl_ptr;
-  linecol: __ghdl_index_type;
-  parent: __ghdl_rti_access;
-  nbr_child: __ghdl_index_type;
-  children: __ghdl_rti_arr_acc;
-END RECORD;
-
-TYPE __ghdl_rtin_generate IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  loc: __ghdl_ptr;
-  linecol: __ghdl_index_type;
-  parent: __ghdl_rti_access;
-  size: __ghdl_index_type;
-  child: __ghdl_rti_access;
-END RECORD;
-
-TYPE __ghdl_rtin_block_file IS RECORD
-  block: __ghdl_rtin_block;
-  filename: __ghdl_char_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_type_scalar IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_type_enum IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  nbr: __ghdl_index_type;
-  lits: __ghdl_char_ptr_array_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_subtype_scalar IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  base: __ghdl_rti_access;
-  range: __ghdl_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_unit64 IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  val: __ghdl_i64;
-END RECORD;
-
-TYPE __ghdl_rtin_unitptr IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  addr: __ghdl_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_type_physical IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  nbr: __ghdl_index_type;
-  units: __ghdl_rti_arr_acc;
-END RECORD;
-
-TYPE __ghdl_rtin_type_fileacc IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  base: __ghdl_rti_access;
-END RECORD;
-
-TYPE __ghdl_rtin_type_array IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  element: __ghdl_rti_access;
-  nbr_dim: __ghdl_index_type;
-  indexes: __ghdl_rti_arr_acc;
-END RECORD;
-
-TYPE __ghdl_rtin_subtype_composite IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  basetype: __ghdl_rti_access;
-  bounds: __ghdl_ptr;
-  val_size: __ghdl_ptr;
-  sig_size: __ghdl_ptr;
-END RECORD;
-
-TYPE __ghdl_rtin_type_record IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  nbrel: __ghdl_index_type;
-  elements: __ghdl_rti_arr_acc;
-END RECORD;
-
-TYPE __ghdl_rtin_element IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  eltype: __ghdl_rti_access;
-  val_off: __ghdl_index_type;
-  sig_off: __ghdl_index_type;
-END RECORD;
-
-TYPE __ghdl_rtin_object IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  loc: __ghdl_ptr;
-  obj_type: __ghdl_rti_access;
-  linecol: __ghdl_index_type;
-END RECORD;
-
-TYPE __ghdl_rtin_instance IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  linecol: __ghdl_index_type;
-  loc: __ghdl_ptr;
-  parent: __ghdl_rti_access;
-  instance: __ghdl_rti_access;
-END RECORD;
-
-TYPE __ghdl_rtin_component IS RECORD
-  common: __ghdl_rti_common;
-  name: __ghdl_char_ptr;
-  nbr_child: __ghdl_index_type;
-  children: __ghdl_rti_arr_acc;
-END RECORD;
-
-EXTERNAL PROCEDURE __ghdl_signal_name_rti (
-  OBJ: __ghdl_rti_access;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_sensitized_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_postponed_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_postponed_sensitized_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_finalize_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr);
-
--- package std.standard
-
-TYPE std__standard__boolean IS BOOLEAN {false, true};
-
-TYPE std__standard__boolean__PTR IS ACCESS std__standard__boolean;
-
-TYPE std__standard__boolean__TRT IS RECORD
-  left: std__standard__boolean;
-  right: std__standard__boolean;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__boolean__TRPTR IS ACCESS std__standard__boolean__TRT;
-
-TYPE std__standard__BOOLEAN_ARRAY IS ARRAY [__ghdl_index_type] OF 
-  std__standard__boolean;
-
-TYPE std__standard__bit IS BOOLEAN {C_0, C_1};
-
-TYPE std__standard__bit__PTR IS ACCESS std__standard__bit;
-
-TYPE std__standard__bit__TRT IS RECORD
-  left: std__standard__bit;
-  right: std__standard__bit;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__bit__TRPTR IS ACCESS std__standard__bit__TRT;
-
-TYPE std__standard__character IS ENUM {nul, soh, stx, etx, eot, enq, ack, bel,
-   bs, ht, lf, vt, ff, cr, so, si, dle, dc1, dc2, dc3, dc4, nak, syn, etb,
-   can, em, sub, esc, fsp, gsp, rsp, usp, C20, C21, C22, C23, C24, C25, C26,
-   C27, C28, C29, C2a, C2b, C2c, C2d, C2e, C2f, C_0, C_1, C_2, C_3, C_4, C_5,
-   C_6, C_7, C_8, C_9, C3a, C3b, C3c, C3d, C3e, C3f, C40, C_A, C_B, C_C, C_D,
-   C_E, C_F, C_G, C_H, C_I, C_J, C_K, C_L, C_M, C_N, C_O, C_P, C_Q, C_R, C_S,
-   C_T, C_U, C_V, C_W, C_X, C_Y, C_Z, C5b, C5c, C5d, C5e, C5f, C60, C_a, C_b,
-   C_c, C_d, C_e, C_f, C_g, C_h, C_i, C_j, C_k, C_l, C_m, C_n, C_o, C_p, C_q,
-   C_r, C_s, C_t, C_u, C_v, C_w, C_x, C_y, C_z, C7b, C7c, C7d, C7e, del, c128,
-   c129, c130, c131, c132, c133, c134, c135, c136, c137, c138, c139, c140,
-   c141, c142, c143, c144, c145, c146, c147, c148, c149, c150, c151, c152,
-   c153, c154, c155, c156, c157, c158, c159, Ca0, Ca1, Ca2, Ca3, Ca4, Ca5,
-   Ca6, Ca7, Ca8, Ca9, Caa, Cab, Cac, Cad, Cae, Caf, Cb0, Cb1, Cb2, Cb3, Cb4,
-   Cb5, Cb6, Cb7, Cb8, Cb9, Cba, Cbb, Cbc, Cbd, Cbe, Cbf, Cc0, Cc1, Cc2, Cc3,
-   Cc4, Cc5, Cc6, Cc7, Cc8, Cc9, Cca, Ccb, Ccc, Ccd, Cce, Ccf, Cd0, Cd1, Cd2,
-   Cd3, Cd4, Cd5, Cd6, Cd7, Cd8, Cd9, Cda, Cdb, Cdc, Cdd, Cde, Cdf, Ce0, Ce1,
-   Ce2, Ce3, Ce4, Ce5, Ce6, Ce7, Ce8, Ce9, Cea, Ceb, Cec, Ced, Cee, Cef, Cf0,
-   Cf1, Cf2, Cf3, Cf4, Cf5, Cf6, Cf7, Cf8, Cf9, Cfa, Cfb, Cfc, Cfd, Cfe, Cff};
-
-TYPE std__standard__character__PTR IS ACCESS std__standard__character;
-
-TYPE std__standard__character__TRT IS RECORD
-  left: std__standard__character;
-  right: std__standard__character;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__character__TRPTR IS ACCESS std__standard__character__TRT;
-
-EXTERNAL CONSTANT std__standard__character__BTR : std__standard__character__TRT
-  ;
-
-TYPE std__standard__severity_level IS ENUM {note, warning, error, failure};
-
-TYPE std__standard__severity_level__PTR IS ACCESS std__standard__severity_level
-  ;
-
-TYPE std__standard__severity_level__TRT IS RECORD
-  left: std__standard__severity_level;
-  right: std__standard__severity_level;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__severity_level__TRPTR IS ACCESS 
-  std__standard__severity_level__TRT;
-
-EXTERNAL CONSTANT std__standard__severity_level__BTR : 
-  std__standard__severity_level__TRT;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT IS SIGNED (64);
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__PTR IS ACCESS 
-  std__standard__UNIVERSAL_INTEGER__BT;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__TRT IS RECORD
-  left: std__standard__UNIVERSAL_INTEGER__BT;
-  right: std__standard__UNIVERSAL_INTEGER__BT;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__UNIVERSAL_INTEGER__BT__TRPTR IS ACCESS 
-  std__standard__UNIVERSAL_INTEGER__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__STR : 
-  std__standard__UNIVERSAL_INTEGER__BT__TRT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT IS FLOAT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__PTR IS ACCESS 
-  std__standard__UNIVERSAL_REAL__BT;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__TRT IS RECORD
-  left: std__standard__UNIVERSAL_REAL__BT;
-  right: std__standard__UNIVERSAL_REAL__BT;
-  dir: __ghdl_dir_type;
-END RECORD;
-
-TYPE std__standard__UNIVERSAL_REAL__BT__TRPTR IS ACCESS 
-  std__standard__UNIVERSAL_REAL__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__STR : 
-  std__standard__UNIVERSAL_REAL__BT__TRT;
-
-TYPE std__standard__integer__BT IS SIGNED (32);
-
-TYPE std__standard__integer__BT__PTR IS ACCESS std__standard__integer__BT;
-
-TYPE std__standard__integer__BT__TRT IS RECORD
-  left: std__standard__integer__BT;
-  right: std__standard__integer__BT;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__integer__BT__TRPTR IS ACCESS 
-  std__standard__integer__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__integer__STR : std__standard__integer__BT__TRT
-  ;
-
-TYPE std__standard__real__BT IS FLOAT;
-
-TYPE std__standard__real__BT__PTR IS ACCESS std__standard__real__BT;
-
-TYPE std__standard__real__BT__TRT IS RECORD
-  left: std__standard__real__BT;
-  right: std__standard__real__BT;
-  dir: __ghdl_dir_type;
-END RECORD;
-
-TYPE std__standard__real__BT__TRPTR IS ACCESS std__standard__real__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__real__STR : std__standard__real__BT__TRT;
-
-TYPE std__standard__time__BT IS SIGNED (64);
-
-TYPE std__standard__time__BT__PTR IS ACCESS std__standard__time__BT;
-
-TYPE std__standard__time__BT__TRT IS RECORD
-  left: std__standard__time__BT;
-  right: std__standard__time__BT;
-  dir: __ghdl_dir_type;
-END RECORD;
-
-TYPE std__standard__time__BT__TRPTR IS ACCESS std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__time__STR : std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__delay_length__STR : 
-  std__standard__time__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__natural__STR : std__standard__integer__BT__TRT
-  ;
-
-EXTERNAL CONSTANT std__standard__positive__STR : 
-  std__standard__integer__BT__TRT;
-
-TYPE std__standard__string__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__character;
-
-TYPE std__standard__string__BASEP IS ACCESS std__standard__string__BASE;
-
-TYPE std__standard__string__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__string__SIGBASEP IS ACCESS std__standard__string__SIGBASE;
-
-TYPE std__standard__string__BOUND IS RECORD
-  dim_1: std__standard__integer__BT__TRT;
-END RECORD;
-
-TYPE std__standard__string__BOUNDP IS ACCESS std__standard__string__BOUND;
-
-TYPE std__standard__string IS RECORD
-  BASE: std__standard__string__BASEP;
-  BOUNDS: std__standard__string__BOUNDP;
-END RECORD;
-
-TYPE std__standard__string__PTR IS ACCESS std__standard__string;
-
-TYPE std__standard__string__SIG IS RECORD
-  BASE: std__standard__string__SIGBASEP;
-  BOUNDS: std__standard__string__BOUNDP;
-END RECORD;
-
-TYPE std__standard__string__SIGPTR IS ACCESS std__standard__string__SIG;
-
-EXTERNAL FUNCTION std__standard__string_EQ (
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION std__standard__string_CMP (
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR)
-  RETURN __ghdl_compare_type;
-
-TYPE std__standard__bit_vector__BASE IS ARRAY [__ghdl_index_type] OF 
-  std__standard__bit;
-
-TYPE std__standard__bit_vector__BASEP IS ACCESS std__standard__bit_vector__BASE
-  ;
-
-TYPE std__standard__bit_vector__SIGBASE IS ARRAY [__ghdl_index_type] OF 
-  __ghdl_signal_ptr;
-
-TYPE std__standard__bit_vector__SIGBASEP IS ACCESS 
-  std__standard__bit_vector__SIGBASE;
-
-TYPE std__standard__bit_vector__BOUND IS RECORD
-  dim_1: std__standard__integer__BT__TRT;
-END RECORD;
-
-TYPE std__standard__bit_vector__BOUNDP IS ACCESS 
-  std__standard__bit_vector__BOUND;
-
-TYPE std__standard__bit_vector IS RECORD
-  BASE: std__standard__bit_vector__BASEP;
-  BOUNDS: std__standard__bit_vector__BOUNDP;
-END RECORD;
-
-TYPE std__standard__bit_vector__PTR IS ACCESS std__standard__bit_vector;
-
-TYPE std__standard__bit_vector__SIG IS RECORD
-  BASE: std__standard__bit_vector__SIGBASEP;
-  BOUNDS: std__standard__bit_vector__BOUNDP;
-END RECORD;
-
-TYPE std__standard__bit_vector__SIGPTR IS ACCESS std__standard__bit_vector__SIG
-  ;
-
-EXTERNAL FUNCTION std__standard__bit_vector_EQ (
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION std__standard__bit_vector_CMP (
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR)
-  RETURN __ghdl_compare_type;
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NOT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_AND (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_OR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NAND (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_NOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_XOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_XNOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_SHL (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_SHA (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-EXTERNAL PROCEDURE std__standard__bit_vector_ROT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-TYPE std__standard__file_open_kind IS ENUM {read_mode, write_mode,
-   append_mode};
-
-TYPE std__standard__file_open_kind__PTR IS ACCESS std__standard__file_open_kind
-  ;
-
-TYPE std__standard__file_open_kind__TRT IS RECORD
-  left: std__standard__file_open_kind;
-  right: std__standard__file_open_kind;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__file_open_kind__TRPTR IS ACCESS 
-  std__standard__file_open_kind__TRT;
-
-EXTERNAL CONSTANT std__standard__file_open_kind__BTR : 
-  std__standard__file_open_kind__TRT;
-
-TYPE std__standard__file_open_status IS ENUM {open_ok, status_error,
-   name_error, mode_error};
-
-TYPE std__standard__file_open_status__PTR IS ACCESS 
-  std__standard__file_open_status;
-
-TYPE std__standard__file_open_status__TRT IS RECORD
-  left: std__standard__file_open_status;
-  right: std__standard__file_open_status;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__file_open_status__TRPTR IS ACCESS 
-  std__standard__file_open_status__TRT;
-
-EXTERNAL CONSTANT std__standard__file_open_status__BTR : 
-  std__standard__file_open_status__TRT;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT IS SIGNED (64);
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__PTR IS ACCESS 
-  std__standard__CONVERTIBLE_INTEGER__BT;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__TRT IS RECORD
-  left: std__standard__CONVERTIBLE_INTEGER__BT;
-  right: std__standard__CONVERTIBLE_INTEGER__BT;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE std__standard__CONVERTIBLE_INTEGER__BT__TRPTR IS ACCESS 
-  std__standard__CONVERTIBLE_INTEGER__BT__TRT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT IS FLOAT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__PTR IS ACCESS 
-  std__standard__CONVERTIBLE_REAL__BT;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__TRT IS RECORD
-  left: std__standard__CONVERTIBLE_REAL__BT;
-  right: std__standard__CONVERTIBLE_REAL__BT;
-  dir: __ghdl_dir_type;
-END RECORD;
-
-TYPE std__standard__CONVERTIBLE_REAL__BT__TRPTR IS ACCESS 
-  std__standard__CONVERTIBLE_REAL__BT__TRT;
-
-EXTERNAL CONSTANT std__standard__RTI : __ghdl_rtin_block;
-
-EXTERNAL CONSTANT std__standard__boolean__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__bit__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__character__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__severity_level__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__BT__RTI : 
-  __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_INTEGER__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__BT__RTI : 
-  __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__UNIVERSAL_REAL__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__integer__BT__RTI : __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__integer__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__real__BT__RTI : __ghdl_rtin_type_scalar;
-
-EXTERNAL CONSTANT std__standard__real__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__time__BT__RTI : __ghdl_rtin_type_physical;
-
-EXTERNAL CONSTANT std__standard__time__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__delay_length__RTI : __ghdl_rtin_subtype_scalar
-  ;
-
-EXTERNAL CONSTANT std__standard__natural__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__positive__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT std__standard__string__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__bit_vector__RTI : __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT std__standard__file_open_kind__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__file_open_status__RTI : __ghdl_rtin_type_enum;
-
-EXTERNAL CONSTANT std__standard__foreign__RTI : __ghdl_rtin_object;
-
-TYPE __ghdl_std_ulogic_boolean_array_type IS SUBARRAY 
-  std__standard__BOOLEAN_ARRAY[9];
-
-EXTERNAL CONSTANT __ghdl_std_ulogic_to_boolean_array : 
-  __ghdl_std_ulogic_boolean_array_type;
-
--- internal declarations, part 2
-
-EXTERNAL VAR __ghdl_now : std__standard__time__BT;
-
-EXTERNAL PROCEDURE __ghdl_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_ieee_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_cover (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_psl_cover_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_report (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr);
-
-EXTERNAL PROCEDURE __ghdl_text_write (
-  file: __ghdl_file_index;
-  str: std__standard__string__PTR);
-
-EXTERNAL FUNCTION __ghdl_text_read_length (
-  file: __ghdl_file_index;
-  str: std__standard__string__PTR)
-  RETURN std__standard__integer__BT;
-
-EXTERNAL PROCEDURE __ghdl_write_scalar (
-  file: __ghdl_file_index;
-  ptr: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_read_scalar (
-  file: __ghdl_file_index;
-  ptr: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-EXTERNAL FUNCTION __ghdl_real_exp (
-  left: std__standard__real__BT;
-  right: std__standard__integer__BT)
-  RETURN std__standard__real__BT;
-
-EXTERNAL FUNCTION __ghdl_integer_exp (
-  left: std__standard__integer__BT;
-  right: std__standard__integer__BT)
-  RETURN std__standard__integer__BT;
-
-EXTERNAL PROCEDURE __ghdl_image_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_bool_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_b1 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_bool_type;
-
-EXTERNAL PROCEDURE __ghdl_image_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_e8 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_e32 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_i32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_value_i32 (
-  val: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_i64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64);
-
-EXTERNAL FUNCTION __ghdl_value_i64 (
-  val: std__standard__string__PTR)
-  RETURN __ghdl_i64;
-
-EXTERNAL PROCEDURE __ghdl_image_p32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_p32 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_image_p64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL FUNCTION __ghdl_value_p64 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  RETURN __ghdl_i64;
-
-EXTERNAL PROCEDURE __ghdl_image_f64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_real);
-
-EXTERNAL FUNCTION __ghdl_value_f64 (
-  val: std__standard__string__PTR)
-  RETURN __ghdl_real;
-
-EXTERNAL PROCEDURE __ghdl_text_file_open (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR);
-
-EXTERNAL PROCEDURE __ghdl_file_open (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR);
-
-EXTERNAL FUNCTION __ghdl_text_file_open_status (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_file_open_status (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_file_endfile (
-  file: __ghdl_file_index)
-  RETURN std__standard__boolean;
-
-EXTERNAL PROCEDURE __ghdl_text_file_close (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_file_close (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_file_flush (
-  file: __ghdl_file_index);
-
-EXTERNAL PROCEDURE __ghdl_signal_create_resolution (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  sig: __ghdl_ptr;
-  nbr_sig: __ghdl_index_type);
-
-TYPE __ghdl_scalar_bytes IS SUBARRAY __ghdl_chararray[8];
-
-TYPE __ghdl_signal IS RECORD
-  driving_value: __ghdl_scalar_bytes;
-  last_value: __ghdl_scalar_bytes;
-  last_event: std__standard__time__BT;
-  last_active: std__standard__time__BT;
-  value: __ghdl_ptr;
-  event: std__standard__boolean;
-  active: std__standard__boolean;
-  has_active: __ghdl_bool_type;
-END RECORD;
-
-TYPE __ghdl_signal_ptr_ptr IS ACCESS __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_merge_rti (
-  sig: __ghdl_signal_ptr;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_source (
-  targ: __ghdl_signal_ptr;
-  src: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_effective_value (
-  targ: __ghdl_signal_ptr;
-  src: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_set_disconnect (
-  sig: __ghdl_signal_ptr;
-  time: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_disconnect (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL FUNCTION __ghdl_signal_get_nbr_drivers (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_index_type;
-
-EXTERNAL FUNCTION __ghdl_signal_get_nbr_ports (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_index_type;
-
-EXTERNAL FUNCTION __ghdl_signal_read_driver (
-  sig: __ghdl_signal_ptr;
-  num: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_read_port (
-  sig: __ghdl_signal_ptr;
-  num: __ghdl_index_type)
-  RETURN __ghdl_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_driving (
-  sig: __ghdl_signal_ptr)
-  RETURN std__standard__boolean;
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_error (
-  sig: __ghdl_signal_ptr;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_error (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  after: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_error (
-  sig: __ghdl_signal_ptr;
-  after: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_null (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_null (
-  sig: __ghdl_signal_ptr;
-  after: std__standard__time__BT);
-
-EXTERNAL FUNCTION __ghdl_create_signal_e8 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_e8 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_e32 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_e32 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_b1 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_bool_type;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_b1 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_b1 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_bool_type;
-
-EXTERNAL FUNCTION __ghdl_create_signal_i32 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_i32 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_create_signal_f64 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_real;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_f64 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_real;
-
-EXTERNAL FUNCTION __ghdl_create_signal_i64 (
-  val_ptr: __ghdl_ptr;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_init_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_signal_simple_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_signal_start_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i64;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_next_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64;
-  after: std__standard__time__BT);
-
-EXTERNAL PROCEDURE __ghdl_signal_associate_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_port_driver_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-EXTERNAL FUNCTION __ghdl_signal_driving_value_i64 (
-  sig: __ghdl_signal_ptr)
-  RETURN __ghdl_i64;
-
-EXTERNAL PROCEDURE __ghdl_process_add_sensitivity (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_add_driver (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_add_direct_driver (
-  sig: __ghdl_signal_ptr;
-  drv: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_direct_assign (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_signal_in_conversion (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  src: __ghdl_signal_ptr;
-  src_len: __ghdl_index_type;
-  dst: __ghdl_signal_ptr;
-  dst_len: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_signal_out_conversion (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  src: __ghdl_signal_ptr;
-  src_len: __ghdl_index_type;
-  dst: __ghdl_signal_ptr;
-  dst_len: __ghdl_index_type);
-
-EXTERNAL FUNCTION __ghdl_create_stable_signal (
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_create_quiet_signal (
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_create_transaction_signal (
-  val_ptr: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_attribute_register_prefix (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL FUNCTION __ghdl_create_delayed_signal (
-  sig: __ghdl_signal_ptr;
-  val_ptr: __ghdl_ptr;
-  val: std__standard__time__BT)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL FUNCTION __ghdl_signal_create_guard (
-  val_ptr: __ghdl_ptr;
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr)
-  RETURN __ghdl_signal_ptr;
-
-EXTERNAL PROCEDURE __ghdl_signal_guard_dependence (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_exit (
-  );
-
-EXTERNAL PROCEDURE __ghdl_process_wait_timeout (
-  time: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_set_timeout (
-  time: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_add_sensitivity (
-  sig: __ghdl_signal_ptr);
-
-EXTERNAL PROCEDURE __ghdl_process_wait_suspend (
-  );
-
-EXTERNAL FUNCTION __ghdl_process_wait_timed_out (
-  )
-  RETURN __ghdl_bool_type;
-
-EXTERNAL PROCEDURE __ghdl_process_wait_close (
-  );
-
-EXTERNAL PROCEDURE __ghdl_get_path_name (
-  res: std__standard__string__PTR;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr;
-  name: __ghdl_str_len_ptr);
-
-EXTERNAL PROCEDURE __ghdl_get_instance_name (
-  res: std__standard__string__PTR;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr;
-  name: __ghdl_str_len_ptr);
-
-EXTERNAL PROCEDURE __ghdl_rti_add_package (
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_rti_add_top (
-  max_pkgs: __ghdl_index_type;
-  pkgs: __ghdl_rti_arr_acc;
-  RTI: __ghdl_rti_access;
-  INSTANCE: __ghdl_ptr);
-
-EXTERNAL PROCEDURE __ghdl_init_top_generics (
-  );
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_eq (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_ne (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_lt (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_match_le (
-  left: __ghdl_i32;
-  right: __ghdl_i32)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_array_match_eq (
-  left: __ghdl_ptr;
-  l_len: __ghdl_index_type;
-  right: __ghdl_ptr;
-  r_len: __ghdl_index_type)
-  RETURN __ghdl_i32;
-
-EXTERNAL FUNCTION __ghdl_std_ulogic_array_match_ne (
-  left: __ghdl_ptr;
-  l_len: __ghdl_index_type;
-  right: __ghdl_ptr;
-  r_len: __ghdl_index_type)
-  RETURN __ghdl_i32;
-
-EXTERNAL PROCEDURE __ghdl_to_string_i32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_to_string_i64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_real);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64_digits (
-  res: std__standard__string__PTR;
-  val: __ghdl_real;
-  nbr_digits: __ghdl_i32);
-
-EXTERNAL PROCEDURE __ghdl_to_string_f64_format (
-  res: std__standard__string__PTR;
-  val: __ghdl_real;
-  format: std__standard__string__PTR);
-
-EXTERNAL PROCEDURE __ghdl_bv_to_ostring (
-  res: std__standard__string__PTR;
-  val: std__standard__bit_vector__BASEP;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_bv_to_hstring (
-  res: std__standard__string__PTR;
-  val: std__standard__bit_vector__BASEP;
-  length: __ghdl_index_type);
-
-EXTERNAL PROCEDURE __ghdl_to_string_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_bool_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_char (
-  res: std__standard__string__PTR;
-  val: std__standard__character);
-
-EXTERNAL PROCEDURE __ghdl_to_string_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_p32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_to_string_p64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_time_to_string_unit (
-  res: std__standard__string__PTR;
-  val: std__standard__time__BT;
-  unit: std__standard__time__BT;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_b1 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
-EXTERNAL PROCEDURE __ghdl_array_char_to_string_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_ptr;
-  length: __ghdl_index_type;
-  RTI: __ghdl_rti_access);
-
---F /Users/gingold/devel/ghdl/build-gcc/lib/ghdl/ieee/v93/../../src/ieee/std_logic_1164.v93
-
--- package declaration std_logic_1164
-
-TYPE ieee__std_logic_1164__std_ulogic IS ENUM {C_U, C_X, C_0, C_1, C_Z, C_W,
-   C_L, C_H, C2d};
-
-TYPE ieee__std_logic_1164__std_ulogic__PTR IS ACCESS 
-  ieee__std_logic_1164__std_ulogic;
-
-TYPE ieee__std_logic_1164__std_ulogic__TRT IS RECORD
-  left: ieee__std_logic_1164__std_ulogic;
-  right: ieee__std_logic_1164__std_ulogic;
-  dir: __ghdl_dir_type;
-  length: __ghdl_index_type;
-END RECORD;
-
-TYPE ieee__std_logic_1164__std_ulogic__TRPTR IS ACCESS 
-  ieee__std_logic_1164__std_ulogic__TRT;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__std_ulogic__BTR : 
-  ieee__std_logic_1164__std_ulogic__TRT;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__BASE IS ARRAY [__ghdl_index_type
-  ] OF ieee__std_logic_1164__std_ulogic;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__BASEP IS ACCESS 
-  ieee__std_logic_1164__std_ulogic_vector__BASE;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__SIGBASE IS ARRAY [
-  __ghdl_index_type] OF __ghdl_signal_ptr;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__SIGBASEP IS ACCESS 
-  ieee__std_logic_1164__std_ulogic_vector__SIGBASE;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__BOUND IS RECORD
-  dim_1: std__standard__integer__BT__TRT;
-END RECORD;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__BOUNDP IS ACCESS 
-  ieee__std_logic_1164__std_ulogic_vector__BOUND;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector IS RECORD
-  BASE: ieee__std_logic_1164__std_ulogic_vector__BASEP;
-  BOUNDS: ieee__std_logic_1164__std_ulogic_vector__BOUNDP;
-END RECORD;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__PTR IS ACCESS 
-  ieee__std_logic_1164__std_ulogic_vector;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__SIG IS RECORD
-  BASE: ieee__std_logic_1164__std_ulogic_vector__SIGBASEP;
-  BOUNDS: ieee__std_logic_1164__std_ulogic_vector__BOUNDP;
-END RECORD;
-
-TYPE ieee__std_logic_1164__std_ulogic_vector__SIGPTR IS ACCESS 
-  ieee__std_logic_1164__std_ulogic_vector__SIG;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__std_logic__STR : 
-  ieee__std_logic_1164__std_ulogic__TRT;
-
-TYPE ieee__std_logic_1164__std_logic_vector__BASE IS ARRAY [__ghdl_index_type] 
-  OF ieee__std_logic_1164__std_ulogic;
-
-TYPE ieee__std_logic_1164__std_logic_vector__BASEP IS ACCESS 
-  ieee__std_logic_1164__std_logic_vector__BASE;
-
-TYPE ieee__std_logic_1164__std_logic_vector__SIGBASE IS ARRAY [
-  __ghdl_index_type] OF __ghdl_signal_ptr;
-
-TYPE ieee__std_logic_1164__std_logic_vector__SIGBASEP IS ACCESS 
-  ieee__std_logic_1164__std_logic_vector__SIGBASE;
-
-TYPE ieee__std_logic_1164__std_logic_vector__BOUND IS RECORD
-  dim_1: std__standard__integer__BT__TRT;
-END RECORD;
-
-TYPE ieee__std_logic_1164__std_logic_vector__BOUNDP IS ACCESS 
-  ieee__std_logic_1164__std_logic_vector__BOUND;
-
-TYPE ieee__std_logic_1164__std_logic_vector IS RECORD
-  BASE: ieee__std_logic_1164__std_logic_vector__BASEP;
-  BOUNDS: ieee__std_logic_1164__std_logic_vector__BOUNDP;
-END RECORD;
-
-TYPE ieee__std_logic_1164__std_logic_vector__PTR IS ACCESS 
-  ieee__std_logic_1164__std_logic_vector;
-
-TYPE ieee__std_logic_1164__std_logic_vector__SIG IS RECORD
-  BASE: ieee__std_logic_1164__std_logic_vector__SIGBASEP;
-  BOUNDS: ieee__std_logic_1164__std_logic_vector__BOUNDP;
-END RECORD;
-
-TYPE ieee__std_logic_1164__std_logic_vector__SIGPTR IS ACCESS 
-  ieee__std_logic_1164__std_logic_vector__SIG;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__x01__STR : 
-  ieee__std_logic_1164__std_ulogic__TRT;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__x01z__STR : 
-  ieee__std_logic_1164__std_ulogic__TRT;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__ux01__STR : 
-  ieee__std_logic_1164__std_ulogic__TRT;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__ux01z__STR : 
-  ieee__std_logic_1164__std_ulogic__TRT;
-
-EXTERNAL VAR ieee__std_logic_1164__ELABORATED : __ghdl_bool_type;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__std_ulogic_vector_EQ (
-  left: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  right: ieee__std_logic_1164__std_ulogic_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__std_ulogic_vector_CMP (
-  left: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  right: ieee__std_logic_1164__std_ulogic_vector__PTR)
-  RETURN __ghdl_compare_type;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__resolved (
-  s: ieee__std_logic_1164__std_ulogic_vector__PTR)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__resolved_RESOLV (
-  INSTANCE: __ghdl_ptr;
-  VALS: __ghdl_signal_ptr;
-  bool_vec: __ghdl_bool_array_ptr;
-  vec_len: __ghdl_index_type;
-  nbr_drv: __ghdl_index_type;
-  nbr_ports: __ghdl_index_type);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__std_logic_vector_EQ (
-  left: ieee__std_logic_1164__std_logic_vector__PTR;
-  right: ieee__std_logic_1164__std_logic_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__std_logic_vector_CMP (
-  left: ieee__std_logic_1164__std_logic_vector__PTR;
-  right: ieee__std_logic_1164__std_logic_vector__PTR)
-  RETURN __ghdl_compare_type;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__andO1 (
-  l: ieee__std_logic_1164__std_ulogic;
-  r: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__nandO1 (
-  l: ieee__std_logic_1164__std_ulogic;
-  r: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__orO1 (
-  l: ieee__std_logic_1164__std_ulogic;
-  r: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__norO1 (
-  l: ieee__std_logic_1164__std_ulogic;
-  r: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__xorO1 (
-  l: ieee__std_logic_1164__std_ulogic;
-  r: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__xnorO1 (
-  l: ieee__std_logic_1164__std_ulogic;
-  r: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__notO1 (
-  l: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__andO2 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  l: ieee__std_logic_1164__std_logic_vector__PTR;
-  r: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__andO3 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  l: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  r: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__nandO2 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  l: ieee__std_logic_1164__std_logic_vector__PTR;
-  r: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__nandO3 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  l: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  r: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__orO2 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  l: ieee__std_logic_1164__std_logic_vector__PTR;
-  r: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__orO3 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  l: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  r: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__norO2 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  l: ieee__std_logic_1164__std_logic_vector__PTR;
-  r: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__norO3 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  l: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  r: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__xorO2 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  l: ieee__std_logic_1164__std_logic_vector__PTR;
-  r: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__xorO3 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  l: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  r: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__xnorO2 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  l: ieee__std_logic_1164__std_logic_vector__PTR;
-  r: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__xnorO3 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  l: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  r: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__notO2 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  l: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__notO3 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  l: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__to_bit (
-  s: ieee__std_logic_1164__std_ulogic;
-  xmap: std__standard__bit)
-  RETURN std__standard__bit;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_bitvectorO1 (
-  RESULT: std__standard__bit_vector__PTR;
-  s: ieee__std_logic_1164__std_logic_vector__PTR;
-  xmap: std__standard__bit);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_bitvectorO2 (
-  RESULT: std__standard__bit_vector__PTR;
-  s: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  xmap: std__standard__bit);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__to_stdulogic (
-  b: std__standard__bit)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_stdlogicvectorO1 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  b: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_stdlogicvectorO2 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  s: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_stdulogicvectorO1 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  b: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_stdulogicvectorO2 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  s: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_x01O1 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  s: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_x01O2 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  s: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__to_x01O3 (
-  s: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_x01O4 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  b: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_x01O5 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  b: std__standard__bit_vector__PTR);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__to_x01O6 (
-  b: std__standard__bit)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_x01zO1 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  s: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_x01zO2 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  s: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__to_x01zO3 (
-  s: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_x01zO4 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  b: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_x01zO5 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  b: std__standard__bit_vector__PTR);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__to_x01zO6 (
-  b: std__standard__bit)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_ux01O1 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  s: ieee__std_logic_1164__std_logic_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_ux01O2 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  s: ieee__std_logic_1164__std_ulogic_vector__PTR);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__to_ux01O3 (
-  s: ieee__std_logic_1164__std_ulogic)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_ux01O4 (
-  RESULT: ieee__std_logic_1164__std_logic_vector__PTR;
-  b: std__standard__bit_vector__PTR);
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__to_ux01O5 (
-  RESULT: ieee__std_logic_1164__std_ulogic_vector__PTR;
-  b: std__standard__bit_vector__PTR);
-
-EXTERNAL FUNCTION ieee__std_logic_1164__to_ux01O6 (
-  b: std__standard__bit)
-  RETURN ieee__std_logic_1164__std_ulogic;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__rising_edge (
-  s: ieee__std_logic_1164__std_ulogic;
-  sSIG: __ghdl_signal_ptr)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__falling_edge (
-  s: ieee__std_logic_1164__std_ulogic;
-  sSIG: __ghdl_signal_ptr)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__is_xO1 (
-  s: ieee__std_logic_1164__std_ulogic_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__is_xO2 (
-  s: ieee__std_logic_1164__std_logic_vector__PTR)
-  RETURN std__standard__boolean;
-
-EXTERNAL FUNCTION ieee__std_logic_1164__is_xO3 (
-  s: ieee__std_logic_1164__std_ulogic)
-  RETURN std__standard__boolean;
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__ELAB_SPEC (
-  );
-
-EXTERNAL PROCEDURE ieee__std_logic_1164__ELAB_BODY (
-  );
-
-EXTERNAL CONSTANT ieee__std_logic_1164__RTI : __ghdl_rtin_block;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__std_ulogic__RTI : __ghdl_rtin_type_enum
-  ;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__std_ulogic_vector__RTI : 
-  __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__std_logic__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__std_logic_vector__RTI : 
-  __ghdl_rtin_type_array;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__x01__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__x01z__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__ux01__RTI : __ghdl_rtin_subtype_scalar;
-
-EXTERNAL CONSTANT ieee__std_logic_1164__ux01z__RTI : __ghdl_rtin_subtype_scalar
-  ;
-
-PRIVATE CONSTANT _UI00000000 : SUBARRAY __ghdl_chararray[9];
-
-CONSTANT _UI00000000 := {116, 111, 112, 46, 118, 104, 100, 108, 0};
-
---F /Users/gingold/devel/ghdl/testsuite/gna/issue626/top.vhdl
-
--- entity inc_ent
-
-TYPE work__inc_ent__INSTTYPE IS RECORD;
-
-TYPE work__inc_ent__INSTPTR IS ACCESS work__inc_ent__INSTTYPE;
-
-TYPE work__inc_ent__INSTTYPE IS RECORD
-  RTI: __ghdl_entity_link_type;
-  works: std__standard__integer__BT;
-  vec: ieee__std_logic_1164__std_logic_vector;
-END RECORD;
-
-PUBLIC PROCEDURE work__inc_ent__DECL_ELAB (
-  INSTANCE: work__inc_ent__INSTPTR);
-
-PUBLIC PROCEDURE work__inc_ent__STMT_ELAB (
-  INSTANCE: work__inc_ent__INSTPTR);
-
-PUBLIC PROCEDURE work__inc_ent__PKG_ELAB (
-  );
-
-EXTERNAL CONSTANT work__RTI : __ghdl_rtin_type_scalar;
-
-PUBLIC CONSTANT work__inc_ent__RTI : __ghdl_rtin_block_file;
-
-PUBLIC CONSTANT work__inc_ent__works__RTI : __ghdl_rtin_object;
-
-PRIVATE CONSTANT work__inc_ent__works__RTISTR : SUBARRAY __ghdl_chararray[6];
-
-CONSTANT work__inc_ent__works__RTISTR := {119, 111, 114, 107, 115, 0};
-
-CONSTANT work__inc_ent__works__RTI := {{__ghdl_rtik'[__ghdl_rtik_generic], 1,
-   0, 0}, __ghdl_char_ptr'unchecked_address (work__inc_ent__works__RTISTR),
-   __ghdl_ptr'offsetof (work__inc_ent__INSTTYPE.works),
-   __ghdl_rti_access'unchecked_address (std__standard__integer__RTI), 1552};
-
-PUBLIC CONSTANT work__inc_ent__vec__RTI : __ghdl_rtin_object;
-
-PRIVATE CONSTANT work__inc_ent__vec__RTISTR : SUBARRAY __ghdl_chararray[4];
-
-CONSTANT work__inc_ent__vec__RTISTR := {118, 101, 99, 0};
-
-CONSTANT work__inc_ent__vec__RTI := {{__ghdl_rtik'[__ghdl_rtik_generic], 1, 0,
-   0}, __ghdl_char_ptr'unchecked_address (work__inc_ent__vec__RTISTR),
-   __ghdl_ptr'offsetof (work__inc_ent__INSTTYPE.vec),
-   __ghdl_rti_access'unchecked_address (
-  ieee__std_logic_1164__std_logic_vector__RTI), 1808};
-
-PRIVATE CONSTANT work__inc_ent__RTISTR : SUBARRAY __ghdl_chararray[8];
-
-CONSTANT work__inc_ent__RTISTR := {105, 110, 99, 95, 101, 110, 116, 0};
-
-PRIVATE CONSTANT work__inc_ent__RTIARRAY : SUBARRAY __ghdl_rti_array[3];
-
-CONSTANT work__inc_ent__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (work__inc_ent__works__RTI),
-   __ghdl_rti_access'unchecked_address (work__inc_ent__vec__RTI),
-   __ghdl_rti_access'[NULL]};
-
-CONSTANT work__inc_ent__RTI := {{{__ghdl_rtik'[__ghdl_rtik_entity], 1, 0, 0},
-   __ghdl_char_ptr'address (work__inc_ent__RTISTR), __ghdl_ptr'[NULL], 1032,
-   __ghdl_rti_access'unchecked_address (work__RTI), 2,
-   __ghdl_rti_arr_acc'address (work__inc_ent__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-PUBLIC PROCEDURE work__inc_ent__PKG_ELAB (
-  )
-DECLARE
-BEGIN
-  --# 4
-  IF NOT ieee__std_logic_1164__ELABORATED THEN
-    ieee__std_logic_1164__ELAB_BODY ();
-  END IF;
-END;
-
-PUBLIC PROCEDURE work__inc_ent__DECL_ELAB (
-  INSTANCE: work__inc_ent__INSTPTR)
-DECLARE
-BEGIN
-  --# 4
-  --# 4
-END;
-
-PUBLIC PROCEDURE work__inc_ent__STMT_ELAB (
-  INSTANCE: work__inc_ent__INSTPTR)
-DECLARE
-BEGIN
-  --# 4
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/issue626/top.vhdl
-
--- architecture default
-
-TYPE work__inc_ent__ARCH__default__INSTTYPE IS RECORD;
-
-TYPE work__inc_ent__ARCH__default__INSTPTR IS ACCESS 
-  work__inc_ent__ARCH__default__INSTTYPE;
-
-TYPE work__inc_ent__ARCH__default__P0__INSTTYPE IS RECORD
-END RECORD;
-
-TYPE work__inc_ent__ARCH__default__INSTTYPE IS RECORD
-  ENTITY: work__inc_ent__INSTTYPE;
-  P0: work__inc_ent__ARCH__default__P0__INSTTYPE;
-END RECORD;
-
-PUBLIC CONSTANT work__inc_ent__ARCH__default__INSTSIZE : __ghdl_index_type;
-
-CONSTANT work__inc_ent__ARCH__default__INSTSIZE := __ghdl_index_type'sizeof (
-  work__inc_ent__ARCH__default__INSTTYPE);
-
-PUBLIC PROCEDURE work__inc_ent__ARCH__default__DECL_ELAB (
-  INSTANCE: work__inc_ent__INSTPTR);
-
-PUBLIC PROCEDURE work__inc_ent__ARCH__default__STMT_ELAB (
-  INSTANCE: work__inc_ent__INSTPTR);
-
-PUBLIC CONSTANT work__inc_ent__ARCH__default__RTI : __ghdl_rtin_block_file;
-
-PUBLIC CONSTANT work__inc_ent__ARCH__default__P0__RTI : __ghdl_rtin_block;
-
-PRIVATE CONSTANT work__inc_ent__ARCH__default__P0__RTISTR : SUBARRAY 
-  __ghdl_chararray[3];
-
-CONSTANT work__inc_ent__ARCH__default__P0__RTISTR := {80, 48, 0};
-
-PRIVATE CONSTANT work__inc_ent__ARCH__default__P0__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[1];
-
-CONSTANT work__inc_ent__ARCH__default__P0__RTIARRAY := 
-  {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__inc_ent__ARCH__default__P0__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_process], 2, 0, 0},
-   __ghdl_char_ptr'address (work__inc_ent__ARCH__default__P0__RTISTR),
-   __ghdl_ptr'offsetof (work__inc_ent__ARCH__default__INSTTYPE.P0), 3080,
-   __ghdl_rti_access'unchecked_address (work__inc_ent__ARCH__default__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__inc_ent__ARCH__default__P0__RTIARRAY)};
-
-PRIVATE CONSTANT work__inc_ent__ARCH__default__RTISTR : SUBARRAY 
-  __ghdl_chararray[8];
-
-CONSTANT work__inc_ent__ARCH__default__RTISTR := {100, 101, 102, 97, 117, 108,
-   116, 0};
-
-PRIVATE CONSTANT work__inc_ent__ARCH__default__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[2];
-
-CONSTANT work__inc_ent__ARCH__default__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (work__inc_ent__ARCH__default__P0__RTI)
-  , __ghdl_rti_access'[NULL]};
-
-CONSTANT work__inc_ent__ARCH__default__RTI := {{
-  {__ghdl_rtik'[__ghdl_rtik_architecture], 1, 0, 0},
-   __ghdl_char_ptr'address (work__inc_ent__ARCH__default__RTISTR),
-   __ghdl_ptr'offsetof (work__inc_ent__ARCH__default__INSTTYPE.ENTITY), 2574,
-   __ghdl_rti_access'unchecked_address (work__inc_ent__RTI), 1,
-   __ghdl_rti_arr_acc'address (work__inc_ent__ARCH__default__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-
-PRIVATE PROCEDURE work__inc_ent__ARCH__default__P0__PROC (
-  INSTANCE: work__inc_ent__ARCH__default__INSTPTR)
-DECLARE
-  PRIVATE CONSTANT _UI00000001 : __ghdl_location;
-  CONSTANT _UI00000001 := {__ghdl_char_ptr'address (_UI00000000), 12, 8};
-BEGIN
-  --# 12
-  DECLARE
-    LOCAL VAR T0_0 : std__standard__string__BOUND;
-    LOCAL VAR T0_1 : std__standard__string__BASEP;
-    LOCAL VAR T0_2 : std__standard__string;
-    LOCAL VAR T0_3 : std__standard__string;
-    LOCAL VAR T0_4 : __ghdl_ptr;
-    LOCAL VAR T0_5 : std__standard__string__PTR;
-    LOCAL VAR T0_6 : std__standard__string;
-    LOCAL VAR T0_7 : std__standard__string__PTR;
-    LOCAL VAR T0_8 : __ghdl_index_type;
-  BEGIN
-    T0_2.BOUNDS := std__standard__string__BOUNDP'address (T0_0);
-    T0_4 := __ghdl_stack2_mark ();
-    __ghdl_image_i32 (std__standard__string__PTR'address (T0_3), __ghdl_i32
-      'conv (INSTANCE.ALL.ENTITY.works));
-    T0_5 := std__standard__string__PTR'address (T0_3);
-    __ghdl_image_i32 (std__standard__string__PTR'address (T0_6), __ghdl_i32
-      'conv (std__standard__integer__BT'conv (INSTANCE.ALL.ENTITY.vec.BOUNDS.
-      ALL.dim_1.length)));
-    T0_7 := std__standard__string__PTR'address (T0_6);
-    T0_8 := ((__ghdl_index_type'[1] +# T0_5.ALL.BOUNDS.ALL.dim_1.length) +# 
-      T0_7.ALL.BOUNDS.ALL.dim_1.length);
-    DECLARE
-      LOCAL VAR T1_0 : std__standard__integer__BT__TRPTR;
-      LOCAL VAR right_bound : std__standard__integer__BT;
-    BEGIN
-      T1_0 := std__standard__integer__BT__TRPTR'address (T0_0.dim_1);
-      T1_0.ALL.length := T0_8;
-      T1_0.ALL.dir := __ghdl_dir_type'[dir_to];
-      IF __ghdl_bool_type'(T0_8 = 0) THEN
-        T1_0.ALL.left := std__standard__integer__BT'conv (
-          std__standard__integer__BT'[2147483647]);
-        T1_0.ALL.right := std__standard__integer__BT'conv (
-          std__standard__integer__BT'[1]);
-      ELSE
-        T1_0.ALL.left := std__standard__integer__BT'conv (
-          std__standard__integer__BT'[1]);
-        right_bound := (std__standard__integer__BT'conv (
-          std__standard__integer__BT'[1]) +# std__standard__integer__BT'conv ((
-          T0_8 -# 1)));
-        IF __ghdl_bool_type'(right_bound < 1) THEN
-          __ghdl_bound_check_failed (__ghdl_char_ptr'address (_UI00000000), 12)
-            ;
-        END IF;
-        T1_0.ALL.right := right_bound;
-      END IF;
-    END;
-    T0_1 := std__standard__string__BASEP'alloca ((T0_2.BOUNDS.ALL.dim_1.length 
-      *# __ghdl_index_type'sizeof (std__standard__character)));
-    T0_2.BASE := T0_1;
-    DECLARE
-      LOCAL VAR T1_0 : __ghdl_index_type;
-      TYPE work__inc_ent__ARCH__default__P0__U0 IS SUBARRAY 
-        std__standard__string__BASE[1];
-      PRIVATE CONSTANT work__inc_ent__ARCH__default__P0__U0__STB : 
-        std__standard__string__BOUND;
-      CONSTANT work__inc_ent__ARCH__default__P0__U0__STB := {{1, 1,
-         __ghdl_dir_type'[dir_to], 1}};
-      PRIVATE CONSTANT _UI00000002 : work__inc_ent__ARCH__default__P0__U0;
-      CONSTANT _UI00000002 := {std__standard__character'[C20]};
-      PRIVATE CONSTANT _UI00000003 : std__standard__string;
-      CONSTANT _UI00000003 := 
-        {std__standard__string__BASEP'address (_UI00000002),
-         std__standard__string__BOUNDP'address (
-        work__inc_ent__ARCH__default__P0__U0__STB)};
-    BEGIN
-      T1_0 := 0;
-      DECLARE
-        LOCAL VAR T2_0 : std__standard__string;
-      BEGIN
-        T2_0.BOUNDS := T0_5.ALL.BOUNDS;
-        T2_0.BASE := std__standard__string__BASEP'address (T0_1.ALL[T1_0...]);
-        __ghdl_memcpy (__ghdl_ptr'conv (T2_0.BASE), __ghdl_ptr'conv (T0_5.ALL.
-          BASE), (T2_0.BOUNDS.ALL.dim_1.length *# __ghdl_index_type'sizeof (
-          std__standard__character)));
-        T1_0 := (T1_0 +# T0_5.ALL.BOUNDS.ALL.dim_1.length);
-      END;
-      DECLARE
-        LOCAL VAR T2_0 : std__standard__string__PTR;
-        LOCAL VAR T2_1 : std__standard__string;
-      BEGIN
-        T2_0 := std__standard__string__PTR'address (_UI00000003);
-        T2_1.BOUNDS := T2_0.ALL.BOUNDS;
-        T2_1.BASE := std__standard__string__BASEP'address (T0_1.ALL[T1_0...]);
-        __ghdl_memcpy (__ghdl_ptr'conv (T2_1.BASE), __ghdl_ptr'conv (T2_0.ALL.
-          BASE), (T2_1.BOUNDS.ALL.dim_1.length *# __ghdl_index_type'sizeof (
-          std__standard__character)));
-        T1_0 := (T1_0 +# T2_0.ALL.BOUNDS.ALL.dim_1.length);
-      END;
-      DECLARE
-        LOCAL VAR T2_0 : std__standard__string;
-      BEGIN
-        T2_0.BOUNDS := T0_7.ALL.BOUNDS;
-        T2_0.BASE := std__standard__string__BASEP'address (T0_1.ALL[T1_0...]);
-        __ghdl_memcpy (__ghdl_ptr'conv (T2_0.BASE), __ghdl_ptr'conv (T0_7.ALL.
-          BASE), (T2_0.BOUNDS.ALL.dim_1.length *# __ghdl_index_type'sizeof (
-          std__standard__character)));
-        T1_0 := (T1_0 +# T0_7.ALL.BOUNDS.ALL.dim_1.length);
-      END;
-    END;
-    __ghdl_assert_failed (std__standard__string__PTR'address (T0_2), 
-      std__standard__severity_level'[error], __ghdl_location_ptr'address (
-      _UI00000001));
-    __ghdl_stack2_release (T0_4);
-  END;
-END;
-
-PUBLIC PROCEDURE work__inc_ent__ARCH__default__DECL_ELAB (
-  INSTANCE: work__inc_ent__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__inc_ent__ARCH__default__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__inc_ent__ARCH__default__INSTPTR'conv (INSTANCE);
-  INSTANCE.ALL.RTI.rti := __ghdl_rti_access'unchecked_address (
-    work__inc_ent__ARCH__default__RTI);
-  work__inc_ent__DECL_ELAB (INSTANCE);
-  --# 10
-  --# 10
-END;
-
-PUBLIC PROCEDURE work__inc_ent__ARCH__default__STMT_ELAB (
-  INSTANCE: work__inc_ent__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__inc_ent__ARCH__default__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__inc_ent__ARCH__default__INSTPTR'conv (INSTANCE);
-  work__inc_ent__STMT_ELAB (INSTANCE);
-  --# 10
-  --# 12
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.ALL), __ghdl_ptr'subprg_addr (
-    work__inc_ent__ARCH__default__P0__PROC), __ghdl_rti_access
-    'unchecked_address (work__inc_ent__ARCH__default__P0__RTI), __ghdl_ptr
-    'unchecked_address (ARCH_INSTANCE.ALL.P0));
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/issue626/top.vhdl
-
--- entity top_ent
-
-TYPE work__top_ent__INSTTYPE IS RECORD;
-
-TYPE work__top_ent__INSTPTR IS ACCESS work__top_ent__INSTTYPE;
-
-TYPE work__top_ent__INSTTYPE IS RECORD
-  RTI: __ghdl_entity_link_type;
-END RECORD;
-
-PUBLIC PROCEDURE work__top_ent__DECL_ELAB (
-  INSTANCE: work__top_ent__INSTPTR);
-
-PUBLIC PROCEDURE work__top_ent__STMT_ELAB (
-  INSTANCE: work__top_ent__INSTPTR);
-
-PUBLIC PROCEDURE work__top_ent__PKG_ELAB (
-  );
-
-PUBLIC CONSTANT work__top_ent__RTI : __ghdl_rtin_block_file;
-
-PRIVATE CONSTANT work__top_ent__RTISTR : SUBARRAY __ghdl_chararray[8];
-
-CONSTANT work__top_ent__RTISTR := {116, 111, 112, 95, 101, 110, 116, 0};
-
-PRIVATE CONSTANT work__top_ent__RTIARRAY : SUBARRAY __ghdl_rti_array[1];
-
-CONSTANT work__top_ent__RTIARRAY := {__ghdl_rti_access'[NULL]};
-
-CONSTANT work__top_ent__RTI := {{{__ghdl_rtik'[__ghdl_rtik_entity], 1, 0, 0},
-   __ghdl_char_ptr'address (work__top_ent__RTISTR), __ghdl_ptr'[NULL], 4616,
-   __ghdl_rti_access'unchecked_address (work__RTI), 0,
-   __ghdl_rti_arr_acc'address (work__top_ent__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-PUBLIC PROCEDURE work__top_ent__PKG_ELAB (
-  )
-DECLARE
-BEGIN
-  --# 18
-  IF NOT ieee__std_logic_1164__ELABORATED THEN
-    ieee__std_logic_1164__ELAB_BODY ();
-  END IF;
-END;
-
-PUBLIC PROCEDURE work__top_ent__DECL_ELAB (
-  INSTANCE: work__top_ent__INSTPTR)
-DECLARE
-BEGIN
-  --# 18
-  --# 18
-END;
-
-PUBLIC PROCEDURE work__top_ent__STMT_ELAB (
-  INSTANCE: work__top_ent__INSTPTR)
-DECLARE
-BEGIN
-  --# 18
-END;
-
---F /Users/gingold/devel/ghdl/testsuite/gna/issue626/top.vhdl
-
--- architecture default
-
-TYPE work__top_ent__ARCH__default__INSTTYPE IS RECORD;
-
-TYPE work__top_ent__ARCH__default__INSTPTR IS ACCESS 
-  work__top_ent__ARCH__default__INSTTYPE;
-
-TYPE work__top_ent__ARCH__default__foo_v__OT IS SUBARRAY 
-  ieee__std_logic_1164__std_logic_vector__BASE[13];
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__foo_v__OT__STB : 
-  ieee__std_logic_1164__std_logic_vector__BOUND;
-
-CONSTANT work__top_ent__ARCH__default__foo_v__OT__STB := {{0, 12,
-   __ghdl_dir_type'[dir_to], 13}};
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__ix__OT__STR : 
-  std__standard__integer__BT__TRT;
-
-CONSTANT work__top_ent__ARCH__default__g__ix__OT__STR := {0, 4,
-   __ghdl_dir_type'[dir_to], 5};
-
-TYPE work__top_ent__ARCH__default__g__INSTTYPE IS RECORD;
-
-TYPE work__top_ent__ARCH__default__g__INSTPTR IS ACCESS 
-  work__top_ent__ARCH__default__g__INSTTYPE;
-
-TYPE work__top_ent__ARCH__default__g__INSTTYPE IS RECORD
-  ORIGIN: work__top_ent__ARCH__default__INSTPTR;
-  CONFIGURED: __ghdl_bool_type;
-  ix: std__standard__integer__BT;
-  foo_v__OT__SIZE: __ghdl_index_type;
-  foo_v__OT__STB: ieee__std_logic_1164__std_logic_vector__BOUND;
-  foo_v: ieee__std_logic_1164__std_logic_vector__BASEP;
-  inst: __ghdl_component_link_type;
-  inst2: __ghdl_component_link_type;
-END RECORD;
-
-TYPE work__top_ent__ARCH__default__g__INSTARRTYPE IS ARRAY [__ghdl_index_type] 
-  OF work__top_ent__ARCH__default__g__INSTTYPE;
-
-TYPE work__top_ent__ARCH__default__g__INSTARRPTR IS ACCESS 
-  work__top_ent__ARCH__default__g__INSTARRTYPE;
-
-TYPE work__top_ent__ARCH__default__INSTTYPE IS RECORD
-  ENTITY: work__top_ent__INSTTYPE;
-  foo_v: work__top_ent__ARCH__default__foo_v__OT;
-  g: work__top_ent__ARCH__default__g__INSTARRPTR;
-END RECORD;
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__INSTSIZE : __ghdl_index_type;
-
-CONSTANT work__top_ent__ARCH__default__INSTSIZE := __ghdl_index_type'sizeof (
-  work__top_ent__ARCH__default__INSTTYPE);
-
-PUBLIC PROCEDURE work__top_ent__ARCH__default__DECL_ELAB (
-  INSTANCE: work__top_ent__INSTPTR);
-
-PUBLIC PROCEDURE work__top_ent__ARCH__default__STMT_ELAB (
-  INSTANCE: work__top_ent__INSTPTR);
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__RTI : __ghdl_rtin_block_file;
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__foo_v__RTI : __ghdl_rtin_object;
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__foo_v__OT__RTI : 
-  __ghdl_rtin_subtype_composite;
-
-CONSTANT work__top_ent__ARCH__default__foo_v__OT__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_subtype_array], 0, 2, 0}, __ghdl_char_ptr'[NULL],
-   __ghdl_rti_access'unchecked_address (
-  ieee__std_logic_1164__std_logic_vector__RTI),
-   __ghdl_ptr'unchecked_address (work__top_ent__ARCH__default__foo_v__OT__STB)
-  , __ghdl_ptr'sizeof (work__top_ent__ARCH__default__foo_v__OT),
-   __ghdl_ptr'[NULL]};
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__foo_v__RTISTR : SUBARRAY 
-  __ghdl_chararray[6];
-
-CONSTANT work__top_ent__ARCH__default__foo_v__RTISTR := {102, 111, 111, 95,
-   118, 0};
-
-CONSTANT work__top_ent__ARCH__default__foo_v__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_constant], 1, 0, 0},
-   __ghdl_char_ptr'unchecked_address (
-  work__top_ent__ARCH__default__foo_v__RTISTR),
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__INSTTYPE.foo_v),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__foo_v__OT__RTI), 5393};
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__ITERATOR__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-CONSTANT work__top_ent__ARCH__default__g__ITERATOR__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_subtype_scalar], 0, 0, 0}, __ghdl_char_ptr'[NULL],
-   __ghdl_rti_access'unchecked_address (std__standard__integer__BT__RTI),
-   __ghdl_ptr'unchecked_address (work__top_ent__ARCH__default__g__ix__OT__STR)}
-  ;
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__RTI : __ghdl_rtin_generate;
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__BOD__RTI : __ghdl_rtin_block;
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__BOD__ix__RTI : 
-  __ghdl_rtin_object;
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__g__BOD__ix__RTISTR : SUBARRAY 
-  __ghdl_chararray[3];
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__ix__RTISTR := {105, 120, 0};
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__ix__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_iterator], 3, 0, 0},
-   __ghdl_char_ptr'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__ix__RTISTR),
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__g__INSTTYPE.ix),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__ITERATOR__RTI), 5904};
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__BOD__foo_v__RTI : 
-  __ghdl_rtin_object;
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__BOD__foo_v__OT__RTI : 
-  __ghdl_rtin_subtype_composite;
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__foo_v__OT__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_subtype_array], 3, 3, 3}, __ghdl_char_ptr'[NULL],
-   __ghdl_rti_access'unchecked_address (
-  ieee__std_logic_1164__std_logic_vector__RTI),
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__g__INSTTYPE.
-  foo_v__OT__STB),
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__g__INSTTYPE.
-  foo_v__OT__SIZE), __ghdl_ptr'[NULL]};
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__g__BOD__foo_v__RTISTR : SUBARRAY
-   __ghdl_chararray[6];
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__foo_v__RTISTR := {102, 111,
-   111, 95, 118, 0};
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__foo_v__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_constant], 3, 0, 0},
-   __ghdl_char_ptr'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__foo_v__RTISTR),
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__g__INSTTYPE.foo_v),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__foo_v__OT__RTI), 6169};
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__g__BOD__inst__RTISTR : SUBARRAY 
-  __ghdl_chararray[5];
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__inst__RTISTR := {105, 110, 115,
-   116, 0};
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__BOD__inst__RTI : 
-  __ghdl_rtin_instance;
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__inst__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_instance], 3, 0, 0},
-   __ghdl_char_ptr'address (work__top_ent__ARCH__default__g__BOD__inst__RTISTR)
-  , 6928,
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__g__INSTTYPE.inst),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__RTI),
-   __ghdl_rti_access'unchecked_address (work__inc_ent__RTI)};
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__g__BOD__inst2__RTISTR : SUBARRAY
-   __ghdl_chararray[6];
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__inst2__RTISTR := {105, 110,
-   115, 116, 50, 0};
-
-PUBLIC CONSTANT work__top_ent__ARCH__default__g__BOD__inst2__RTI : 
-  __ghdl_rtin_instance;
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__inst2__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_instance], 3, 0, 0},
-   __ghdl_char_ptr'address (work__top_ent__ARCH__default__g__BOD__inst2__RTISTR
-  ), 8208,
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__g__INSTTYPE.inst2),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__RTI),
-   __ghdl_rti_access'unchecked_address (work__inc_ent__RTI)};
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__g__BOD__RTISTR : SUBARRAY 
-  __ghdl_chararray[1];
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__RTISTR := {0};
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__g__BOD__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[5];
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__ix__RTI),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__foo_v__RTI),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__inst__RTI),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__inst2__RTI), __ghdl_rti_access'[NULL]};
-
-CONSTANT work__top_ent__ARCH__default__g__BOD__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_generate_body], 3, 0, 0},
-   __ghdl_char_ptr'address (work__top_ent__ARCH__default__g__BOD__RTISTR),
-   __ghdl_ptr'[NULL], 6160,
-   __ghdl_rti_access'unchecked_address (work__top_ent__ARCH__default__g__RTI),
-   4,
-   __ghdl_rti_arr_acc'address (work__top_ent__ARCH__default__g__BOD__RTIARRAY)}
-  ;
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__g__RTISTR : SUBARRAY 
-  __ghdl_chararray[2];
-
-CONSTANT work__top_ent__ARCH__default__g__RTISTR := {103, 0};
-
-CONSTANT work__top_ent__ARCH__default__g__RTI := {
-  {__ghdl_rtik'[__ghdl_rtik_for_generate], 2, 0, 0},
-   __ghdl_char_ptr'address (work__top_ent__ARCH__default__g__RTISTR),
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__INSTTYPE.g), 5896,
-   __ghdl_rti_access'unchecked_address (work__top_ent__ARCH__default__RTI),
-   __ghdl_index_type'sizeof (work__top_ent__ARCH__default__g__INSTTYPE),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__BOD__RTI)};
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__RTISTR : SUBARRAY 
-  __ghdl_chararray[8];
-
-CONSTANT work__top_ent__ARCH__default__RTISTR := {100, 101, 102, 97, 117, 108,
-   116, 0};
-
-PRIVATE CONSTANT work__top_ent__ARCH__default__RTIARRAY : SUBARRAY 
-  __ghdl_rti_array[4];
-
-CONSTANT work__top_ent__ARCH__default__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__foo_v__RTI),
-   __ghdl_rti_access'unchecked_address (
-  work__top_ent__ARCH__default__g__ITERATOR__RTI),
-   __ghdl_rti_access'unchecked_address (work__top_ent__ARCH__default__g__RTI),
-   __ghdl_rti_access'[NULL]};
-
-CONSTANT work__top_ent__ARCH__default__RTI := {{
-  {__ghdl_rtik'[__ghdl_rtik_architecture], 1, 0, 0},
-   __ghdl_char_ptr'address (work__top_ent__ARCH__default__RTISTR),
-   __ghdl_ptr'offsetof (work__top_ent__ARCH__default__INSTTYPE.ENTITY), 5134,
-   __ghdl_rti_access'unchecked_address (work__top_ent__RTI), 3,
-   __ghdl_rti_arr_acc'address (work__top_ent__ARCH__default__RTIARRAY)},
-   __ghdl_char_ptr'address (_UI00000000)};
-
-
-PRIVATE PROCEDURE work__top_ent__ARCH__default__g__inst__COMP_ELAB (
-  INSTANCE: work__top_ent__ARCH__default__g__INSTPTR)
-DECLARE
-  EXTERNAL CONSTANT work__inc_ent__LASTARCH__INSTSIZE : __ghdl_index_type;
-  EXTERNAL PROCEDURE work__inc_ent__LASTARCH__DECL_ELAB (
-    INSTANCE: work__inc_ent__INSTPTR);
-  EXTERNAL PROCEDURE work__inc_ent__LASTARCH__STMT_ELAB (
-    INSTANCE: work__inc_ent__INSTPTR);
-  EXTERNAL PROCEDURE work__inc_ent__LASTARCH__DEFAULT_CONFIG (
-    INSTANCE: work__inc_ent__INSTPTR);
-  LOCAL VAR SUB_INSTANCE : work__inc_ent__INSTPTR;
-  LOCAL VAR U0__SIZE : __ghdl_index_type;
-  LOCAL VAR U0__STB : ieee__std_logic_1164__std_logic_vector__BOUND;
-BEGIN
-  --# 27
-  INSTANCE.ALL.inst.stmt := __ghdl_rti_access'unchecked_address (
-    work__top_ent__ARCH__default__g__BOD__inst__RTI);
-  SUB_INSTANCE := work__inc_ent__INSTPTR'conv (__ghdl_malloc0 (
-    work__inc_ent__LASTARCH__INSTSIZE));
-  INSTANCE.ALL.inst.INSTANCE := __ghdl_entity_link_acc'address (SUB_INSTANCE.
-    ALL.RTI);
-  SUB_INSTANCE.ALL.RTI.parent := __ghdl_component_link_acc'address (INSTANCE.
-    ALL.inst);
-  work__inc_ent__PKG_ELAB ();
-  SUB_INSTANCE.ALL.works := 0;
-  DECLARE
-    LOCAL VAR T2_0 : std__standard__integer__BT__TRPTR;
-  BEGIN
-    T2_0 := std__standard__integer__BT__TRPTR'address (U0__STB.dim_1);
-    T2_0.ALL.left := std__standard__integer__BT'conv (
-      std__standard__integer__BT'[0]);
-    T2_0.ALL.right := std__standard__integer__BT'conv (INSTANCE.ALL.ix);
-    T2_0.ALL.dir := __ghdl_dir_type'[dir_to];
-    DECLARE
-      LOCAL VAR T4_0 : __ghdl_index_type;
-    BEGIN
-      DECLARE
-        LOCAL VAR T5_0 : __ghdl_i32;
-      BEGIN
-        T5_0 := (__ghdl_i32'conv (T2_0.ALL.right) -# __ghdl_i32'conv (T2_0.ALL.
-          left));
-        IF __ghdl_bool_type'(T5_0 < 0) THEN
-          T4_0 := 0;
-        ELSE
-          T4_0 := (__ghdl_index_type'conv (T5_0) +# 1);
-        END IF;
-      END;
-      T2_0.ALL.length := T4_0;
-    END;
-  END;
-  U0__SIZE := (U0__STB.dim_1.length *# __ghdl_index_type'sizeof (
-    ieee__std_logic_1164__std_ulogic));
-  DECLARE
-    LOCAL VAR T0_0 : ieee__std_logic_1164__std_logic_vector__PTR;
-  BEGIN
-    T0_0 := ieee__std_logic_1164__std_logic_vector__PTR'address (SUB_INSTANCE.
-      ALL.vec);
-    T0_0.ALL.BOUNDS := ieee__std_logic_1164__std_logic_vector__BOUNDP'address (
-      U0__STB);
-    T0_0.ALL.BASE := ieee__std_logic_1164__std_logic_vector__BASEP'conv (
-      __ghdl_malloc0 ((T0_0.ALL.BOUNDS.ALL.dim_1.length *# __ghdl_index_type
-      'sizeof (ieee__std_logic_1164__std_ulogic))));
-    DECLARE
-      LOCAL VAR T1_0 : ieee__std_logic_1164__std_logic_vector__BASEP;
-      LOCAL VAR T1_1 : ieee__std_logic_1164__std_logic_vector__BOUNDP;
-      LOCAL VAR T1_2 : __ghdl_index_type;
-    BEGIN
-      T1_0 := T0_0.ALL.BASE;
-      T1_1 := T0_0.ALL.BOUNDS;
-      DECLARE
-        LOCAL VAR T2_0 : std__standard__integer__BT__TRT;
-      BEGIN
-        T2_0.left := std__standard__integer__BT'conv (
-          std__standard__integer__BT'[0]);
-        T2_0.right := std__standard__integer__BT'conv (INSTANCE.ALL.ix);
-        T2_0.dir := __ghdl_dir_type'[dir_to];
-        DECLARE
-          LOCAL VAR T4_0 : __ghdl_index_type;
-        BEGIN
-          DECLARE
-            LOCAL VAR T5_0 : __ghdl_i32;
-          BEGIN
-            T5_0 := (__ghdl_i32'conv (T2_0.right) -# __ghdl_i32'conv (T2_0.left
-              ));
-            IF __ghdl_bool_type'(T5_0 < 0) THEN
-              T4_0 := 0;
-            ELSE
-              T4_0 := (__ghdl_index_type'conv (T5_0) +# 1);
-            END IF;
-          END;
-          T2_0.length := T4_0;
-        END;
-        IF __ghdl_bool_type'(T2_0.length /= T1_1.ALL.dim_1.length) THEN
-          __ghdl_bound_check_failed (__ghdl_char_ptr'address (_UI00000000), 30)
-            ;
-        END IF;
-      END;
-      T1_2 := 0;
-      DECLARE
-        LOCAL VAR T2_0 : __ghdl_index_type;
-        LOCAL VAR T2_1 : __ghdl_index_type;
-        LOCAL VAR T2_2 : __ghdl_index_type;
-      BEGIN
-        DECLARE
-          LOCAL VAR T3_0 : __ghdl_i32;
-        BEGIN
-          T3_0 := (__ghdl_i32'conv (INSTANCE.ALL.ix) -# __ghdl_i32'conv (
-            std__standard__integer__BT'[0]));
-          IF __ghdl_bool_type'(T3_0 < 0) THEN
-            T2_0 := 0;
-          ELSE
-            T2_0 := (__ghdl_index_type'conv (T3_0) +# 1);
-          END IF;
-        END;
-        T2_1 := T2_0;
-        T2_2 := 0;
-        LOOP 1:
-          IF __ghdl_bool_type'(T2_2 = T2_1) THEN
-            EXIT LOOP 1;
-          END IF;
-          T1_0.ALL[T1_2] := ieee__std_logic_1164__std_ulogic'[C_1];
-          T1_2 := (T1_2 +# 1);
-          T2_2 := (T2_2 +# 1);
-        END LOOP;
-      END;
-    END;
-  END;
-  work__inc_ent__LASTARCH__DECL_ELAB (SUB_INSTANCE);
-  work__inc_ent__LASTARCH__STMT_ELAB (SUB_INSTANCE);
-  work__inc_ent__LASTARCH__DEFAULT_CONFIG (work__inc_ent__INSTPTR'conv (
-    SUB_INSTANCE));
-END;
-
-
-PRIVATE PROCEDURE work__top_ent__ARCH__default__g__inst2__COMP_ELAB (
-  INSTANCE: work__top_ent__ARCH__default__g__INSTPTR)
-DECLARE
-  EXTERNAL CONSTANT work__inc_ent__LASTARCH__INSTSIZE : __ghdl_index_type;
-  EXTERNAL PROCEDURE work__inc_ent__LASTARCH__DECL_ELAB (
-    INSTANCE: work__inc_ent__INSTPTR);
-  EXTERNAL PROCEDURE work__inc_ent__LASTARCH__STMT_ELAB (
-    INSTANCE: work__inc_ent__INSTPTR);
-  EXTERNAL PROCEDURE work__inc_ent__LASTARCH__DEFAULT_CONFIG (
-    INSTANCE: work__inc_ent__INSTPTR);
-  LOCAL VAR SUB_INSTANCE : work__inc_ent__INSTPTR;
-BEGIN
-  --# 32
-  INSTANCE.ALL.inst2.stmt := __ghdl_rti_access'unchecked_address (
-    work__top_ent__ARCH__default__g__BOD__inst2__RTI);
-  SUB_INSTANCE := work__inc_ent__INSTPTR'conv (__ghdl_malloc0 (
-    work__inc_ent__LASTARCH__INSTSIZE));
-  INSTANCE.ALL.inst2.INSTANCE := __ghdl_entity_link_acc'address (SUB_INSTANCE.
-    ALL.RTI);
-  SUB_INSTANCE.ALL.RTI.parent := __ghdl_component_link_acc'address (INSTANCE.
-    ALL.inst2);
-  work__inc_ent__PKG_ELAB ();
-  SUB_INSTANCE.ALL.works := 1;
-  DECLARE
-    LOCAL VAR T0_0 : ieee__std_logic_1164__std_logic_vector;
-    LOCAL VAR T0_1 : ieee__std_logic_1164__std_logic_vector__BASEP;
-    LOCAL VAR T0_2 : ieee__std_logic_1164__std_logic_vector__PTR;
-    LOCAL VAR T0_3 : ieee__std_logic_1164__std_logic_vector__PTR;
-  BEGIN
-    T0_1 := INSTANCE.ALL.foo_v;
-    T0_0.BASE := ieee__std_logic_1164__std_logic_vector__BASEP'conv (T0_1);
-    T0_0.BOUNDS := ieee__std_logic_1164__std_logic_vector__BOUNDP'address (
-      INSTANCE.ALL.foo_v__OT__STB);
-    T0_2 := ieee__std_logic_1164__std_logic_vector__PTR'address (SUB_INSTANCE.
-      ALL.vec);
-    T0_3 := ieee__std_logic_1164__std_logic_vector__PTR'address (T0_0);
-    T0_2.ALL.BOUNDS := ieee__std_logic_1164__std_logic_vector__BOUNDP'conv (
-      __ghdl_malloc0 (__ghdl_index_type'sizeof (
-      ieee__std_logic_1164__std_logic_vector__BOUND)));
-    __ghdl_memcpy (__ghdl_ptr'conv (T0_2.ALL.BOUNDS), __ghdl_ptr'conv (T0_3.ALL
-      .BOUNDS), __ghdl_index_type'sizeof (
-      ieee__std_logic_1164__std_logic_vector__BOUND));
-    T0_2.ALL.BASE := ieee__std_logic_1164__std_logic_vector__BASEP'conv (
-      __ghdl_malloc0 ((T0_2.ALL.BOUNDS.ALL.dim_1.length *# __ghdl_index_type
-      'sizeof (ieee__std_logic_1164__std_ulogic))));
-    __ghdl_memcpy (__ghdl_ptr'conv (T0_2.ALL.BASE), __ghdl_ptr'conv (T0_3.ALL.
-      BASE), (T0_2.ALL.BOUNDS.ALL.dim_1.length *# __ghdl_index_type'sizeof (
-      ieee__std_logic_1164__std_ulogic)));
-  END;
-  work__inc_ent__LASTARCH__DECL_ELAB (SUB_INSTANCE);
-  work__inc_ent__LASTARCH__STMT_ELAB (SUB_INSTANCE);
-  work__inc_ent__LASTARCH__DEFAULT_CONFIG (work__inc_ent__INSTPTR'conv (
-    SUB_INSTANCE));
-END;
-
-PUBLIC PROCEDURE work__top_ent__ARCH__default__DECL_ELAB (
-  INSTANCE: work__top_ent__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__top_ent__ARCH__default__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__top_ent__ARCH__default__INSTPTR'conv (INSTANCE);
-  INSTANCE.ALL.RTI.rti := __ghdl_rti_access'unchecked_address (
-    work__top_ent__ARCH__default__RTI);
-  work__top_ent__DECL_ELAB (INSTANCE);
-  --# 20
-  --# 20
-  --# 21
-  DECLARE
-    LOCAL VAR T1_0 : ieee__std_logic_1164__std_logic_vector__BASEP;
-    LOCAL VAR T1_1 : __ghdl_index_type;
-    LOCAL VAR T1_2 : __ghdl_index_type;
-  BEGIN
-    T1_0 := ieee__std_logic_1164__std_logic_vector__BASEP'address (
-      ARCH_INSTANCE.ALL.foo_v);
-    T1_1 := 13;
-    T1_2 := 0;
-    LOOP 1:
-      IF __ghdl_bool_type'(T1_2 = T1_1) THEN
-        EXIT LOOP 1;
-      END IF;
-      T1_0.ALL[T1_2] := ieee__std_logic_1164__std_ulogic'[C_1];
-      T1_2 := (T1_2 +# 1);
-    END LOOP;
-  END;
-  DECLARE
-    LOCAL VAR T0_0 : std__standard__integer__BT__TRPTR;
-    LOCAL VAR T0_1 : work__top_ent__ARCH__default__g__INSTARRPTR;
-    LOCAL VAR T0_2 : __ghdl_index_type;
-    LOCAL VAR T0_3 : work__top_ent__ARCH__default__g__INSTPTR;
-    LOCAL VAR T0_4 : std__standard__integer__BT;
-  BEGIN
-    T0_0 := std__standard__integer__BT__TRPTR'address (
-      work__top_ent__ARCH__default__g__ix__OT__STR);
-    T0_1 := work__top_ent__ARCH__default__g__INSTARRPTR'conv (__ghdl_malloc0 ((
-      T0_0.ALL.length *# __ghdl_index_type'sizeof (
-      work__top_ent__ARCH__default__g__INSTTYPE))));
-    ARCH_INSTANCE.ALL.g := T0_1;
-    T0_2 := 0;
-    LOOP 1:
-      IF __ghdl_bool_type'(T0_2 = T0_0.ALL.length) THEN
-        EXIT LOOP 1;
-      END IF;
-      T0_3 := work__top_ent__ARCH__default__g__INSTPTR'address (T0_1.ALL[T0_2])
-        ;
-      T0_3.ALL.ORIGIN := ARCH_INSTANCE;
-      T0_3.ALL.CONFIGURED := __ghdl_bool_type'[false];
-      IF __ghdl_bool_type'(T0_0.ALL.dir = __ghdl_dir_type'[dir_to]) THEN
-        T0_4 := T0_0.ALL.left;
-      ELSE
-        T0_4 := T0_0.ALL.right;
-      END IF;
-      T0_3.ALL.ix := (T0_4 +# std__standard__integer__BT'conv (T0_2));
-      --# 24
-      --# 24
-      DECLARE
-        LOCAL VAR T3_0 : std__standard__integer__BT__TRPTR;
-      BEGIN
-        T3_0 := std__standard__integer__BT__TRPTR'address (T0_3.ALL.
-          foo_v__OT__STB.dim_1);
-        T3_0.ALL.left := std__standard__integer__BT'conv (
-          std__standard__integer__BT'[0]);
-        T3_0.ALL.right := std__standard__integer__BT'conv (T0_3.ALL.ix);
-        T3_0.ALL.dir := __ghdl_dir_type'[dir_to];
-        DECLARE
-          LOCAL VAR T5_0 : __ghdl_index_type;
-        BEGIN
-          DECLARE
-            LOCAL VAR T6_0 : __ghdl_i32;
-          BEGIN
-            T6_0 := (__ghdl_i32'conv (T3_0.ALL.right) -# __ghdl_i32'conv (T3_0.
-              ALL.left));
-            IF __ghdl_bool_type'(T6_0 < 0) THEN
-              T5_0 := 0;
-            ELSE
-              T5_0 := (__ghdl_index_type'conv (T6_0) +# 1);
-            END IF;
-          END;
-          T3_0.ALL.length := T5_0;
-        END;
-      END;
-      T0_3.ALL.foo_v__OT__SIZE := (T0_3.ALL.foo_v__OT__STB.dim_1.length *# 
-        __ghdl_index_type'sizeof (ieee__std_logic_1164__std_ulogic));
-      T0_3.ALL.foo_v := ieee__std_logic_1164__std_logic_vector__BASEP'conv (
-        __ghdl_malloc0 (T0_3.ALL.foo_v__OT__SIZE));
-      DECLARE
-        LOCAL VAR T2_0 : ieee__std_logic_1164__std_logic_vector__BASEP;
-        LOCAL VAR T2_1 : __ghdl_index_type;
-        LOCAL VAR T2_2 : __ghdl_index_type;
-      BEGIN
-        T2_0 := T0_3.ALL.foo_v;
-        T2_1 := T0_3.ALL.foo_v__OT__STB.dim_1.length;
-        T2_2 := 0;
-        LOOP 2:
-          IF __ghdl_bool_type'(T2_2 = T2_1) THEN
-            EXIT LOOP 2;
-          END IF;
-          T2_0.ALL[T2_2] := ieee__std_logic_1164__std_ulogic'[C_1];
-          T2_2 := (T2_2 +# 1);
-        END LOOP;
-      END;
-      work__top_ent__ARCH__default__g__inst__COMP_ELAB (T0_3);
-      work__top_ent__ARCH__default__g__inst2__COMP_ELAB (T0_3);
-      T0_2 := (T0_2 +# 1);
-    END LOOP;
-  END;
-END;
-
-PUBLIC PROCEDURE work__top_ent__ARCH__default__STMT_ELAB (
-  INSTANCE: work__top_ent__INSTPTR)
-DECLARE
-  LOCAL VAR ARCH_INSTANCE : work__top_ent__ARCH__default__INSTPTR;
-BEGIN
-  ARCH_INSTANCE := work__top_ent__ARCH__default__INSTPTR'conv (INSTANCE);
-  work__top_ent__STMT_ELAB (INSTANCE);
-  --# 20
-  DECLARE
-    LOCAL VAR T0_0 : work__top_ent__ARCH__default__g__INSTARRPTR;
-    LOCAL VAR T0_1 : __ghdl_index_type;
-    LOCAL VAR T0_2 : __ghdl_index_type;
-    LOCAL VAR T0_3 : work__top_ent__ARCH__default__g__INSTPTR;
-  BEGIN
-    T0_0 := ARCH_INSTANCE.ALL.g;
-    T0_1 := work__top_ent__ARCH__default__g__ix__OT__STR.length;
-    T0_2 := 0;
-    LOOP 1:
-      IF __ghdl_bool_type'(T0_2 = T0_1) THEN
-        EXIT LOOP 1;
-      END IF;
-      T0_3 := work__top_ent__ARCH__default__g__INSTPTR'address (T0_0.ALL[T0_2])
-        ;
-      T0_2 := (T0_2 +# 1);
-    END LOOP;
-  END;
-END;
-
diff --git a/testsuite/gna/sr2737/repro.on b/testsuite/gna/sr2737/repro.on
deleted file mode 100644
index 807324302..000000000
--- a/testsuite/gna/sr2737/repro.on
+++ /dev/null
@@ -1,1962 +0,0 @@
--- internal declarations, part 1
-
-type __ghdl_size_type is unsigned (32);
-
-type __ghdl_index_type is unsigned (32);
-
-type __ghdl_i32 is signed (32);
-
-type __ghdl_real is float;
-
-type __ghdl_i64 is signed (64);
-
-type __ghdl_file_index is unsigned (32);
-
-type __ghdl_file_index_ptr is access __ghdl_file_index;
-
-type __ghdl_char is unsigned (8);
-
-type __ghdl_chararray is array [__ghdl_index_type] of __ghdl_char;
-
-type __ghdl_char_ptr is access __ghdl_chararray;
-
-type __ghdl_char_ptr_array is array [__ghdl_index_type] of __ghdl_char_ptr;
-
-type __ghdl_char_ptr_array_ptr is access __ghdl_char_ptr_array;
-
-type __ghdl_ptr is access __ghdl_char;
-
-type __ghdl_str_len is record 
-  len: __ghdl_index_type; 
-  str: __ghdl_char_ptr; 
-end record;
-
-type __ghdl_str_len_array is array [__ghdl_index_type] of __ghdl_str_len;
-
-type __ghdl_str_len_ptr is access __ghdl_str_len;
-
-type __ghdl_bool_type is boolean {false, true};
-
-type __ghdl_bool_array_type is array [__ghdl_index_type] of __ghdl_bool_type;
-
-type __ghdl_bool_array_ptr is access __ghdl_bool_array_type;
-
-type __ghdl_compare_type is enum {lt = 0, eq = 1, gt = 2};
-
-type __ghdl_location is record 
-  filename: __ghdl_char_ptr; 
-  line: __ghdl_i32; 
-  col: __ghdl_i32; 
-end record;
-
-type __ghdl_location_ptr is access __ghdl_location;
-
-type __ghdl_dir_type is enum {dir_to = 0, dir_downto = 1};
-
-external function __ghdl_alloc (
-  size: __ghdl_size_type)
-  return __ghdl_ptr;
-
-external procedure __ghdl_program_error (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32;
-  code: __ghdl_index_type);
-
-external procedure __ghdl_bound_check_failed_l0 (
-  index: __ghdl_index_type);
-
-external procedure __ghdl_bound_check_failed_l1 (
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-external function __ghdl_stack2_allocate (
-  size: __ghdl_index_type)
-  return __ghdl_ptr;
-
-external function __ghdl_stack2_mark (
-  )
-  return __ghdl_ptr;
-
-external procedure __ghdl_stack2_release (
-  mark: __ghdl_ptr);
-
-external procedure __ghdl_memcpy (
-  dest: __ghdl_ptr;
-  src: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-external procedure __ghdl_deallocate (
-  OBJ: __ghdl_ptr);
-
-external function __ghdl_malloc (
-  length: __ghdl_index_type)
-  return __ghdl_ptr;
-
-external function __ghdl_malloc0 (
-  length: __ghdl_index_type)
-  return __ghdl_ptr;
-
-external function __ghdl_text_file_elaborate (
-  )
-  return __ghdl_file_index;
-
-external function __ghdl_file_elaborate (
-  NAME: __ghdl_char_ptr)
-  return __ghdl_file_index;
-
-external procedure __ghdl_file_finalize (
-  file: __ghdl_file_index);
-
-external procedure __ghdl_text_file_finalize (
-  file: __ghdl_file_index);
-
-external procedure __ghdl_protected_enter (
-  OBJ: __ghdl_ptr);
-
-external procedure __ghdl_protected_leave (
-  OBJ: __ghdl_ptr);
-
-external procedure __ghdl_protected_init (
-  OBJ: __ghdl_ptr);
-
-external procedure __ghdl_protected_fini (
-  OBJ: __ghdl_ptr);
-
-type __ghdl_rtik is enum {__ghdl_rtik_top = 0, __ghdl_rtik_library = 1,
-   __ghdl_rtik_package = 2, __ghdl_rtik_package_body = 3,
-   __ghdl_rtik_entity = 4, __ghdl_rtik_architecture = 5,
-   __ghdl_rtik_process = 6, __ghdl_rtik_block = 7,
-   __ghdl_rtik_if_generate = 8, __ghdl_rtik_for_generate = 9,
-   __ghdl_rtik_instance = 10, __ghdl_rtik_constant = 11,
-   __ghdl_rtik_iterator = 12, __ghdl_rtik_variable = 13,
-   __ghdl_rtik_signal = 14, __ghdl_rtik_file = 15, __ghdl_rtik_port = 16,
-   __ghdl_rtik_generic = 17, __ghdl_rtik_alias = 18, __ghdl_rtik_guard = 19,
-   __ghdl_rtik_component = 20, __ghdl_rtik_attribute = 21,
-   __ghdl_rtik_type_b2 = 22, __ghdl_rtik_type_e8 = 23,
-   __ghdl_rtik_type_e32 = 24, __ghdl_rtik_type_i32 = 25,
-   __ghdl_rtik_type_i64 = 26, __ghdl_rtik_type_f64 = 27,
-   __ghdl_rtik_type_p32 = 28, __ghdl_rtik_type_p64 = 29,
-   __ghdl_rtik_type_access = 30, __ghdl_rtik_type_array = 31,
-   __ghdl_rtik_type_record = 32, __ghdl_rtik_type_file = 33,
-   __ghdl_rtik_subtype_scalar = 34, __ghdl_rtik_subtype_array = 35,
-   __ghdl_rtik_subtype_array_ptr = 36,
-   __ghdl_rtik_subtype_unconstrained_array = 37,
-   __ghdl_rtik_subtype_record = 38, __ghdl_rtik_subtype_access = 39,
-   __ghdl_rtik_type_protected = 40, __ghdl_rtik_element = 41,
-   __ghdl_rtik_unit = 42, __ghdl_rtik_attribute_transaction = 43,
-   __ghdl_rtik_attribute_quiet = 44, __ghdl_rtik_attribute_stable = 45,
-   __ghdl_rtik_psl_assert = 46, __ghdl_rtik_error = 47};
-
-type __ghdl_rti_depth is unsigned (8);
-
-type __ghdl_rti_u8 is unsigned (8);
-
-type __ghdl_rti_common is record 
-  kind: __ghdl_rtik; 
-  depth: __ghdl_rti_depth; 
-  mode: __ghdl_rti_u8; 
-  max_depth: __ghdl_rti_depth; 
-end record;
-
-type __ghdl_rti_access is access __ghdl_rti_common;
-
-type __ghdl_rti_array is array [__ghdl_index_type] of __ghdl_rti_access;
-
-type __ghdl_rti_arr_acc is access __ghdl_rti_array;
-
-type __ghdl_component_link_type is record;
-
-type __ghdl_component_link_acc is access __ghdl_component_link_type;
-
-type __ghdl_entity_link_type is record 
-  rti: __ghdl_rti_access; 
-  parent: __ghdl_component_link_acc; 
-end record;
-
-type __ghdl_entity_link_acc is access __ghdl_entity_link_type;
-
-type __ghdl_component_link_type is record 
-  INSTANCE: __ghdl_entity_link_acc; 
-  stmt: __ghdl_rti_access; 
-end record;
-
-type __ghdl_rti_loc is union 
-  offset: __ghdl_index_type; 
-  address: __ghdl_ptr; 
-end union;
-
-type __ghdl_rtin_block is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  loc: __ghdl_rti_loc; 
-  parent: __ghdl_rti_access; 
-  size: __ghdl_index_type; 
-  nbr_child: __ghdl_index_type; 
-  children: __ghdl_rti_arr_acc; 
-end record;
-
-type __ghdl_rtin_type_scalar is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-end record;
-
-type __ghdl_rtin_type_enum is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  nbr: __ghdl_index_type; 
-  lits: __ghdl_char_ptr_array_ptr; 
-end record;
-
-type __ghdl_rtin_subtype_scalar is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  base: __ghdl_rti_access; 
-  range: __ghdl_rti_loc; 
-end record;
-
-type __ghdl_rti_unit_val is union 
-  unit_32: __ghdl_i32; 
-  unit_64: __ghdl_i64; 
-  addr: __ghdl_ptr; 
-end union;
-
-type __ghdl_rtin_unit is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  value: __ghdl_rti_unit_val; 
-end record;
-
-type __ghdl_rtin_type_physical is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  nbr: __ghdl_index_type; 
-  units: __ghdl_rti_arr_acc; 
-end record;
-
-type __ghdl_rtin_type_fileacc is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  base: __ghdl_rti_access; 
-end record;
-
-type __ghdl_rtin_type_array is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  element: __ghdl_rti_access; 
-  nbr_dim: __ghdl_index_type; 
-  indexes: __ghdl_rti_arr_acc; 
-end record;
-
-type __ghdl_rtin_subtype_array is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  basetype: __ghdl_rti_access; 
-  bounds: __ghdl_rti_loc; 
-  val_size: __ghdl_rti_loc; 
-  sig_size: __ghdl_rti_loc; 
-end record;
-
-type __ghdl_rtin_type_record is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  nbrel: __ghdl_index_type; 
-  elements: __ghdl_rti_arr_acc; 
-end record;
-
-type __ghdl_rtin_element is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  eltype: __ghdl_rti_access; 
-  val_off: __ghdl_index_type; 
-  sig_off: __ghdl_index_type; 
-end record;
-
-type __ghdl_rtin_object is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  loc: __ghdl_rti_loc; 
-  obj_type: __ghdl_rti_access; 
-end record;
-
-type __ghdl_rtin_instance is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  loc: __ghdl_rti_loc; 
-  parent: __ghdl_rti_access; 
-  instance: __ghdl_rti_access; 
-end record;
-
-type __ghdl_rtin_component is record 
-  common: __ghdl_rti_common; 
-  name: __ghdl_char_ptr; 
-  nbr_child: __ghdl_index_type; 
-  children: __ghdl_rti_arr_acc; 
-end record;
-
-external procedure __ghdl_signal_name_rti (
-  OBJ: __ghdl_rti_access;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-external procedure __ghdl_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-external procedure __ghdl_sensitized_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-external procedure __ghdl_postponed_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-external procedure __ghdl_postponed_sensitized_process_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr);
-
-external procedure __ghdl_finalize_register (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr);
-
--- package std.standard
-
-type std__standard__boolean is boolean {false, true};
-
-type std__standard__boolean__PTR is access std__standard__boolean;
-
-type std__standard__boolean__SIG is access std__standard__boolean;
-
-type std__standard__boolean__TRT is record 
-  left: std__standard__boolean; 
-  right: std__standard__boolean; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__boolean__TRPTR is access std__standard__boolean__TRT;
-
-type std__standard__BOOLEAN_ARRAY is array [__ghdl_index_type] of 
-  std__standard__boolean;
-
-type std__standard__bit is boolean {C_0, C_1};
-
-type std__standard__bit__PTR is access std__standard__bit;
-
-type std__standard__bit__SIG is access std__standard__bit;
-
-type std__standard__bit__TRT is record 
-  left: std__standard__bit; 
-  right: std__standard__bit; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__bit__TRPTR is access std__standard__bit__TRT;
-
-type std__standard__character is enum {nul = 0, soh = 1, stx = 2, etx = 3,
-   eot = 4, enq = 5, ack = 6, bel = 7, bs = 8, ht = 9, lf = 10, vt = 11,
-   ff = 12, cr = 13, so = 14, si = 15, dle = 16, dc1 = 17, dc2 = 18, dc3 = 19,
-   dc4 = 20, nak = 21, syn = 22, etb = 23, can = 24, em = 25, sub = 26,
-   esc = 27, fsp = 28, gsp = 29, rsp = 30, usp = 31, C20 = 32, C21 = 33,
-   C22 = 34, C23 = 35, C24 = 36, C25 = 37, C26 = 38, C27 = 39, C28 = 40,
-   C29 = 41, C2a = 42, C2b = 43, C2c = 44, C2d = 45, C2e = 46, C2f = 47,
-   C_0 = 48, C_1 = 49, C_2 = 50, C_3 = 51, C_4 = 52, C_5 = 53, C_6 = 54,
-   C_7 = 55, C_8 = 56, C_9 = 57, C3a = 58, C3b = 59, C3c = 60, C3d = 61,
-   C3e = 62, C3f = 63, C40 = 64, C_A = 65, C_B = 66, C_C = 67, C_D = 68,
-   C_E = 69, C_F = 70, C_G = 71, C_H = 72, C_I = 73, C_J = 74, C_K = 75,
-   C_L = 76, C_M = 77, C_N = 78, C_O = 79, C_P = 80, C_Q = 81, C_R = 82,
-   C_S = 83, C_T = 84, C_U = 85, C_V = 86, C_W = 87, C_X = 88, C_Y = 89,
-   C_Z = 90, C5b = 91, C5c = 92, C5d = 93, C5e = 94, C5f = 95, C60 = 96,
-   C_a = 97, C_b = 98, C_c = 99, C_d = 100, C_e = 101, C_f = 102, C_g = 103,
-   C_h = 104, C_i = 105, C_j = 106, C_k = 107, C_l = 108, C_m = 109,
-   C_n = 110, C_o = 111, C_p = 112, C_q = 113, C_r = 114, C_s = 115,
-   C_t = 116, C_u = 117, C_v = 118, C_w = 119, C_x = 120, C_y = 121,
-   C_z = 122, C7b = 123, C7c = 124, C7d = 125, C7e = 126, del = 127,
-   c128 = 128, c129 = 129, c130 = 130, c131 = 131, c132 = 132, c133 = 133,
-   c134 = 134, c135 = 135, c136 = 136, c137 = 137, c138 = 138, c139 = 139,
-   c140 = 140, c141 = 141, c142 = 142, c143 = 143, c144 = 144, c145 = 145,
-   c146 = 146, c147 = 147, c148 = 148, c149 = 149, c150 = 150, c151 = 151,
-   c152 = 152, c153 = 153, c154 = 154, c155 = 155, c156 = 156, c157 = 157,
-   c158 = 158, c159 = 159, Ca0 = 160, Ca1 = 161, Ca2 = 162, Ca3 = 163,
-   Ca4 = 164, Ca5 = 165, Ca6 = 166, Ca7 = 167, Ca8 = 168, Ca9 = 169,
-   Caa = 170, Cab = 171, Cac = 172, Cad = 173, Cae = 174, Caf = 175,
-   Cb0 = 176, Cb1 = 177, Cb2 = 178, Cb3 = 179, Cb4 = 180, Cb5 = 181,
-   Cb6 = 182, Cb7 = 183, Cb8 = 184, Cb9 = 185, Cba = 186, Cbb = 187,
-   Cbc = 188, Cbd = 189, Cbe = 190, Cbf = 191, Cc0 = 192, Cc1 = 193,
-   Cc2 = 194, Cc3 = 195, Cc4 = 196, Cc5 = 197, Cc6 = 198, Cc7 = 199,
-   Cc8 = 200, Cc9 = 201, Cca = 202, Ccb = 203, Ccc = 204, Ccd = 205,
-   Cce = 206, Ccf = 207, Cd0 = 208, Cd1 = 209, Cd2 = 210, Cd3 = 211,
-   Cd4 = 212, Cd5 = 213, Cd6 = 214, Cd7 = 215, Cd8 = 216, Cd9 = 217,
-   Cda = 218, Cdb = 219, Cdc = 220, Cdd = 221, Cde = 222, Cdf = 223,
-   Ce0 = 224, Ce1 = 225, Ce2 = 226, Ce3 = 227, Ce4 = 228, Ce5 = 229,
-   Ce6 = 230, Ce7 = 231, Ce8 = 232, Ce9 = 233, Cea = 234, Ceb = 235,
-   Cec = 236, Ced = 237, Cee = 238, Cef = 239, Cf0 = 240, Cf1 = 241,
-   Cf2 = 242, Cf3 = 243, Cf4 = 244, Cf5 = 245, Cf6 = 246, Cf7 = 247,
-   Cf8 = 248, Cf9 = 249, Cfa = 250, Cfb = 251, Cfc = 252, Cfd = 253,
-   Cfe = 254, Cff = 255};
-
-type std__standard__character__PTR is access std__standard__character;
-
-type std__standard__character__SIG is access std__standard__character;
-
-type std__standard__character__TRT is record 
-  left: std__standard__character; 
-  right: std__standard__character; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__character__TRPTR is access std__standard__character__TRT;
-
-external constant std__standard__character__BTR : std__standard__character__TRT
-  ;
-
-type std__standard__severity_level is enum {note = 0, warning = 1, error = 2,
-   failure = 3};
-
-type std__standard__severity_level__PTR is access std__standard__severity_level
-  ;
-
-type std__standard__severity_level__SIG is access std__standard__severity_level
-  ;
-
-type std__standard__severity_level__TRT is record 
-  left: std__standard__severity_level; 
-  right: std__standard__severity_level; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__severity_level__TRPTR is access 
-  std__standard__severity_level__TRT;
-
-external constant std__standard__severity_level__BTR : 
-  std__standard__severity_level__TRT;
-
-type std__standard__UNIVERSAL_INTEGER__BT is signed (32);
-
-type std__standard__UNIVERSAL_INTEGER__BT__PTR is access 
-  std__standard__UNIVERSAL_INTEGER__BT;
-
-type std__standard__UNIVERSAL_INTEGER__BT__SIG is access 
-  std__standard__UNIVERSAL_INTEGER__BT;
-
-type std__standard__UNIVERSAL_INTEGER__BT__TRT is record 
-  left: std__standard__UNIVERSAL_INTEGER__BT; 
-  right: std__standard__UNIVERSAL_INTEGER__BT; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__UNIVERSAL_INTEGER__BT__TRPTR is access 
-  std__standard__UNIVERSAL_INTEGER__BT__TRT;
-
-external constant std__standard__UNIVERSAL_INTEGER__STR : 
-  std__standard__UNIVERSAL_INTEGER__BT__TRT;
-
-type std__standard__UNIVERSAL_REAL__BT is float;
-
-type std__standard__UNIVERSAL_REAL__BT__PTR is access 
-  std__standard__UNIVERSAL_REAL__BT;
-
-type std__standard__UNIVERSAL_REAL__BT__SIG is access 
-  std__standard__UNIVERSAL_REAL__BT;
-
-type std__standard__UNIVERSAL_REAL__BT__TRT is record 
-  left: std__standard__UNIVERSAL_REAL__BT; 
-  right: std__standard__UNIVERSAL_REAL__BT; 
-  dir: __ghdl_dir_type; 
-end record;
-
-type std__standard__UNIVERSAL_REAL__BT__TRPTR is access 
-  std__standard__UNIVERSAL_REAL__BT__TRT;
-
-external constant std__standard__UNIVERSAL_REAL__STR : 
-  std__standard__UNIVERSAL_REAL__BT__TRT;
-
-type std__standard__CONVERTIBLE_INTEGER__BT is signed (32);
-
-type std__standard__CONVERTIBLE_INTEGER__BT__PTR is access 
-  std__standard__CONVERTIBLE_INTEGER__BT;
-
-type std__standard__CONVERTIBLE_INTEGER__BT__SIG is access 
-  std__standard__CONVERTIBLE_INTEGER__BT;
-
-type std__standard__CONVERTIBLE_INTEGER__BT__TRT is record 
-  left: std__standard__CONVERTIBLE_INTEGER__BT; 
-  right: std__standard__CONVERTIBLE_INTEGER__BT; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__CONVERTIBLE_INTEGER__BT__TRPTR is access 
-  std__standard__CONVERTIBLE_INTEGER__BT__TRT;
-
-type std__standard__CONVERTIBLE_REAL__BT is float;
-
-type std__standard__CONVERTIBLE_REAL__BT__PTR is access 
-  std__standard__CONVERTIBLE_REAL__BT;
-
-type std__standard__CONVERTIBLE_REAL__BT__SIG is access 
-  std__standard__CONVERTIBLE_REAL__BT;
-
-type std__standard__CONVERTIBLE_REAL__BT__TRT is record 
-  left: std__standard__CONVERTIBLE_REAL__BT; 
-  right: std__standard__CONVERTIBLE_REAL__BT; 
-  dir: __ghdl_dir_type; 
-end record;
-
-type std__standard__CONVERTIBLE_REAL__BT__TRPTR is access 
-  std__standard__CONVERTIBLE_REAL__BT__TRT;
-
-type std__standard__real__BT is float;
-
-type std__standard__real__BT__PTR is access std__standard__real__BT;
-
-type std__standard__real__BT__SIG is access std__standard__real__BT;
-
-type std__standard__real__BT__TRT is record 
-  left: std__standard__real__BT; 
-  right: std__standard__real__BT; 
-  dir: __ghdl_dir_type; 
-end record;
-
-type std__standard__real__BT__TRPTR is access std__standard__real__BT__TRT;
-
-external constant std__standard__real__STR : std__standard__real__BT__TRT;
-
-type std__standard__integer__BT is signed (32);
-
-type std__standard__integer__BT__PTR is access std__standard__integer__BT;
-
-type std__standard__integer__BT__SIG is access std__standard__integer__BT;
-
-type std__standard__integer__BT__TRT is record 
-  left: std__standard__integer__BT; 
-  right: std__standard__integer__BT; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__integer__BT__TRPTR is access 
-  std__standard__integer__BT__TRT;
-
-external constant std__standard__integer__STR : std__standard__integer__BT__TRT
-  ;
-
-external constant std__standard__natural__STR : std__standard__integer__BT__TRT
-  ;
-
-external constant std__standard__positive__STR : 
-  std__standard__integer__BT__TRT;
-
-type std__standard__string__BASE is array [__ghdl_index_type] of 
-  std__standard__character;
-
-type std__standard__string__BASEP is access std__standard__string__BASE;
-
-type std__standard__string__SIGBASE is array [__ghdl_index_type] of 
-  std__standard__character__SIG;
-
-type std__standard__string__SIGBASEP is access std__standard__string__SIGBASE;
-
-type std__standard__string__BOUND is record 
-  dim_1: std__standard__integer__BT__TRT; 
-end record;
-
-type std__standard__string__BOUNDP is access std__standard__string__BOUND;
-
-type std__standard__string is record 
-  BASE: std__standard__string__BASEP; 
-  BOUNDS: std__standard__string__BOUNDP; 
-end record;
-
-type std__standard__string__PTR is access std__standard__string;
-
-type std__standard__string__SIG is record 
-  BASE: std__standard__string__SIGBASEP; 
-  BOUNDS: std__standard__string__BOUNDP; 
-end record;
-
-type std__standard__string__SIGPTR is access std__standard__string__SIG;
-
-external constant std__standard__string__BR1 : std__standard__string__BOUND;
-
-external function std__standard__string_EQ (
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR)
-  return std__standard__boolean;
-
-external function std__standard__string_CMP (
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR)
-  return __ghdl_compare_type;
-
-external procedure std__standard__string_CONCAT (
-  res: std__standard__string__PTR;
-  left: std__standard__string__PTR;
-  right: std__standard__string__PTR);
-
-type std__standard__bit_vector__BASE is array [__ghdl_index_type] of 
-  std__standard__bit;
-
-type std__standard__bit_vector__BASEP is access std__standard__bit_vector__BASE
-  ;
-
-type std__standard__bit_vector__SIGBASE is array [__ghdl_index_type] of 
-  std__standard__bit__SIG;
-
-type std__standard__bit_vector__SIGBASEP is access 
-  std__standard__bit_vector__SIGBASE;
-
-type std__standard__bit_vector__BOUND is record 
-  dim_1: std__standard__integer__BT__TRT; 
-end record;
-
-type std__standard__bit_vector__BOUNDP is access 
-  std__standard__bit_vector__BOUND;
-
-type std__standard__bit_vector is record 
-  BASE: std__standard__bit_vector__BASEP; 
-  BOUNDS: std__standard__bit_vector__BOUNDP; 
-end record;
-
-type std__standard__bit_vector__PTR is access std__standard__bit_vector;
-
-type std__standard__bit_vector__SIG is record 
-  BASE: std__standard__bit_vector__SIGBASEP; 
-  BOUNDS: std__standard__bit_vector__BOUNDP; 
-end record;
-
-type std__standard__bit_vector__SIGPTR is access std__standard__bit_vector__SIG
-  ;
-
-external constant std__standard__bit_vector__BR1 : 
-  std__standard__bit_vector__BOUND;
-
-external function std__standard__bit_vector_EQ (
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR)
-  return std__standard__boolean;
-
-external function std__standard__bit_vector_CMP (
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR)
-  return __ghdl_compare_type;
-
-external procedure std__standard__bit_vector_CONCAT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-external procedure std__standard__bit_vector_NOT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR);
-
-external procedure std__standard__bit_vector_AND (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-external procedure std__standard__bit_vector_OR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-external procedure std__standard__bit_vector_NAND (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-external procedure std__standard__bit_vector_NOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-external procedure std__standard__bit_vector_XOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-external procedure std__standard__bit_vector_XNOR (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__bit_vector__PTR);
-
-external procedure std__standard__bit_vector_SHL (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-external procedure std__standard__bit_vector_SHA (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-external procedure std__standard__bit_vector_ROT (
-  res: std__standard__bit_vector__PTR;
-  left: std__standard__bit_vector__PTR;
-  right: std__standard__integer__BT);
-
-type std__standard__time__BT is signed (64);
-
-type std__standard__time__BT__PTR is access std__standard__time__BT;
-
-type std__standard__time__BT__SIG is access std__standard__time__BT;
-
-type std__standard__time__BT__TRT is record 
-  left: std__standard__time__BT; 
-  right: std__standard__time__BT; 
-  dir: __ghdl_dir_type; 
-end record;
-
-type std__standard__time__BT__TRPTR is access std__standard__time__BT__TRT;
-
-external constant std__standard__time__STR : std__standard__time__BT__TRT;
-
-external constant std__standard__delay_length__STR : 
-  std__standard__time__BT__TRT;
-
-type std__standard__file_open_kind is enum {read_mode = 0, write_mode = 1,
-   append_mode = 2};
-
-type std__standard__file_open_kind__PTR is access std__standard__file_open_kind
-  ;
-
-type std__standard__file_open_kind__SIG is access std__standard__file_open_kind
-  ;
-
-type std__standard__file_open_kind__TRT is record 
-  left: std__standard__file_open_kind; 
-  right: std__standard__file_open_kind; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__file_open_kind__TRPTR is access 
-  std__standard__file_open_kind__TRT;
-
-external constant std__standard__file_open_kind__BTR : 
-  std__standard__file_open_kind__TRT;
-
-type std__standard__file_open_status is enum {open_ok = 0, status_error = 1,
-   name_error = 2, mode_error = 3};
-
-type std__standard__file_open_status__PTR is access 
-  std__standard__file_open_status;
-
-type std__standard__file_open_status__SIG is access 
-  std__standard__file_open_status;
-
-type std__standard__file_open_status__TRT is record 
-  left: std__standard__file_open_status; 
-  right: std__standard__file_open_status; 
-  dir: __ghdl_dir_type; 
-  length: __ghdl_index_type; 
-end record;
-
-type std__standard__file_open_status__TRPTR is access 
-  std__standard__file_open_status__TRT;
-
-external constant std__standard__file_open_status__BTR : 
-  std__standard__file_open_status__TRT;
-
-external constant std__standard__RTI : __ghdl_rtin_block;
-
-external constant std__standard__boolean__RTI : __ghdl_rtin_type_enum;
-
-external constant std__standard__bit__RTI : __ghdl_rtin_type_enum;
-
-external constant std__standard__character__RTI : __ghdl_rtin_type_enum;
-
-external constant std__standard__severity_level__RTI : __ghdl_rtin_type_enum;
-
-external constant std__standard__UNIVERSAL_INTEGER__BT__RTI : 
-  __ghdl_rtin_type_scalar;
-
-external constant std__standard__UNIVERSAL_INTEGER__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-external constant std__standard__UNIVERSAL_REAL__BT__RTI : 
-  __ghdl_rtin_type_scalar;
-
-external constant std__standard__UNIVERSAL_REAL__RTI : 
-  __ghdl_rtin_subtype_scalar;
-
-external constant std__standard__integer__BT__RTI : __ghdl_rtin_type_scalar;
-
-external constant std__standard__integer__RTI : __ghdl_rtin_subtype_scalar;
-
-external constant std__standard__real__BT__RTI : __ghdl_rtin_type_scalar;
-
-external constant std__standard__real__RTI : __ghdl_rtin_subtype_scalar;
-
-external constant std__standard__natural__RTI : __ghdl_rtin_subtype_scalar;
-
-external constant std__standard__positive__RTI : __ghdl_rtin_subtype_scalar;
-
-external constant std__standard__string__RTI : __ghdl_rtin_type_array;
-
-external constant std__standard__bit_vector__RTI : __ghdl_rtin_type_array;
-
-external constant std__standard__time__BT__RTI : __ghdl_rtin_type_physical;
-
-external constant std__standard__time__RTI : __ghdl_rtin_subtype_scalar;
-
-external constant std__standard__delay_length__RTI : __ghdl_rtin_subtype_scalar
-  ;
-
-external constant std__standard__file_open_kind__RTI : __ghdl_rtin_type_enum;
-
-external constant std__standard__file_open_status__RTI : __ghdl_rtin_type_enum;
-
-external constant std__standard__foreign__RTI : __ghdl_rtin_object;
-
-type __ghdl_std_ulogic_boolean_array_type is subarray 
-  std__standard__BOOLEAN_ARRAY[__ghdl_index_type'[9]];
-
-external constant __ghdl_std_ulogic_to_boolean_array : 
-  __ghdl_std_ulogic_boolean_array_type;
-
--- internal declarations, part 2
-
-external var __ghdl_now : std__standard__time__BT;
-
-external procedure __ghdl_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr;
-  unit: __ghdl_rti_access);
-
-external procedure __ghdl_psl_assert_failed (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr;
-  unit: __ghdl_rti_access);
-
-external procedure __ghdl_report (
-  msg: std__standard__string__PTR;
-  severity: std__standard__severity_level;
-  location: __ghdl_location_ptr;
-  unit: __ghdl_rti_access);
-
-external var __ghdl_assert_default_report : std__standard__string;
-
-external procedure __ghdl_text_write (
-  file: __ghdl_file_index;
-  str: std__standard__string__PTR);
-
-external function __ghdl_text_read_length (
-  file: __ghdl_file_index;
-  str: std__standard__string__PTR)
-  return std__standard__integer__BT;
-
-external procedure __ghdl_write_scalar (
-  file: __ghdl_file_index;
-  ptr: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-external procedure __ghdl_read_scalar (
-  file: __ghdl_file_index;
-  ptr: __ghdl_ptr;
-  length: __ghdl_index_type);
-
-external function __ghdl_real_exp (
-  left: std__standard__real__BT;
-  right: std__standard__integer__BT)
-  return std__standard__real__BT;
-
-external function __ghdl_integer_exp (
-  left: std__standard__integer__BT;
-  right: std__standard__integer__BT)
-  return std__standard__integer__BT;
-
-external procedure __ghdl_image_b2 (
-  res: std__standard__string__PTR;
-  val: __ghdl_bool_type;
-  rti: __ghdl_rti_access);
-
-external function __ghdl_value_b2 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  return __ghdl_bool_type;
-
-external procedure __ghdl_image_e8 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  rti: __ghdl_rti_access);
-
-external function __ghdl_value_e8 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  return __ghdl_i32;
-
-external procedure __ghdl_image_e32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  rti: __ghdl_rti_access);
-
-external function __ghdl_value_e32 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  return __ghdl_i32;
-
-external procedure __ghdl_image_i32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32);
-
-external function __ghdl_value_i32 (
-  val: std__standard__string__PTR)
-  return __ghdl_i32;
-
-external procedure __ghdl_image_p32 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i32;
-  rti: __ghdl_rti_access);
-
-external function __ghdl_value_p32 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  return __ghdl_i32;
-
-external procedure __ghdl_image_p64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_i64;
-  rti: __ghdl_rti_access);
-
-external function __ghdl_value_p64 (
-  val: std__standard__string__PTR;
-  rti: __ghdl_rti_access)
-  return __ghdl_i64;
-
-external procedure __ghdl_image_f64 (
-  res: std__standard__string__PTR;
-  val: __ghdl_real);
-
-external function __ghdl_value_f64 (
-  val: std__standard__string__PTR)
-  return __ghdl_real;
-
-external procedure __ghdl_text_file_open (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR);
-
-external procedure __ghdl_file_open (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR);
-
-external function __ghdl_text_file_open_status (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR)
-  return __ghdl_i32;
-
-external function __ghdl_file_open_status (
-  file: __ghdl_file_index;
-  mode: __ghdl_i32;
-  str: std__standard__string__PTR)
-  return __ghdl_i32;
-
-external function __ghdl_file_endfile (
-  file: __ghdl_file_index)
-  return std__standard__boolean;
-
-external procedure __ghdl_text_file_close (
-  file: __ghdl_file_index);
-
-external procedure __ghdl_file_close (
-  file: __ghdl_file_index);
-
-external procedure __ghdl_signal_create_resolution (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  sig: __ghdl_ptr;
-  nbr_sig: __ghdl_index_type);
-
-type __ghdl_scalar_bytes is subarray __ghdl_chararray[__ghdl_index_type'[8]];
-
-type __ghdl_signal_ptr is access;
-
-type __ghdl_signal is record 
-  value: __ghdl_scalar_bytes; 
-  driving_value: __ghdl_scalar_bytes; 
-  last_value: __ghdl_scalar_bytes; 
-  last_event: std__standard__time__BT; 
-  last_active: std__standard__time__BT; 
-  active_chain: __ghdl_signal_ptr; 
-  event: std__standard__boolean; 
-  active: std__standard__boolean; 
-  has_active: __ghdl_bool_type; 
-end record;
-
-type __ghdl_signal_ptr is access __ghdl_signal;
-
-type __ghdl_signal_ptr_ptr is access __ghdl_signal_ptr;
-
-external var __ghdl_signal_active_chain : __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_merge_rti (
-  sig: __ghdl_signal_ptr;
-  RTI: __ghdl_rti_access);
-
-external procedure __ghdl_signal_add_source (
-  targ: __ghdl_signal_ptr;
-  src: __ghdl_signal_ptr);
-
-external procedure __ghdl_signal_effective_value (
-  targ: __ghdl_signal_ptr;
-  src: __ghdl_signal_ptr);
-
-external procedure __ghdl_signal_set_disconnect (
-  sig: __ghdl_signal_ptr;
-  time: std__standard__time__BT);
-
-external procedure __ghdl_signal_disconnect (
-  sig: __ghdl_signal_ptr);
-
-external function __ghdl_signal_get_nbr_drivers (
-  sig: __ghdl_signal_ptr)
-  return __ghdl_index_type;
-
-external function __ghdl_signal_get_nbr_ports (
-  sig: __ghdl_signal_ptr)
-  return __ghdl_index_type;
-
-external function __ghdl_signal_read_driver (
-  sig: __ghdl_signal_ptr;
-  num: __ghdl_index_type)
-  return __ghdl_ptr;
-
-external function __ghdl_signal_read_port (
-  sig: __ghdl_signal_ptr;
-  num: __ghdl_index_type)
-  return __ghdl_ptr;
-
-external function __ghdl_signal_driving (
-  sig: __ghdl_signal_ptr)
-  return std__standard__boolean;
-
-external procedure __ghdl_signal_simple_assign_error (
-  sig: __ghdl_signal_ptr;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-external procedure __ghdl_signal_start_assign_error (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  after: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-external procedure __ghdl_signal_next_assign_error (
-  sig: __ghdl_signal_ptr;
-  after: std__standard__time__BT;
-  filename: __ghdl_char_ptr;
-  line: __ghdl_i32);
-
-external procedure __ghdl_signal_start_assign_null (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_next_assign_null (
-  sig: __ghdl_signal_ptr;
-  after: std__standard__time__BT);
-
-external function __ghdl_create_signal_e8 (
-  init_val: __ghdl_i32;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  return __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_init_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external procedure __ghdl_signal_simple_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external procedure __ghdl_signal_start_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_next_assign_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_associate_e8 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external function __ghdl_signal_driving_value_e8 (
-  sig: __ghdl_signal_ptr)
-  return __ghdl_i32;
-
-external function __ghdl_create_signal_e32 (
-  init_val: __ghdl_i32;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  return __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_init_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external procedure __ghdl_signal_simple_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external procedure __ghdl_signal_start_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_next_assign_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_associate_e32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external function __ghdl_signal_driving_value_e32 (
-  sig: __ghdl_signal_ptr)
-  return __ghdl_i32;
-
-external function __ghdl_create_signal_b2 (
-  init_val: __ghdl_bool_type;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  return __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_init_b2 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-external procedure __ghdl_signal_simple_assign_b2 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-external procedure __ghdl_signal_start_assign_b2 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_bool_type;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_next_assign_b2 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_associate_b2 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_bool_type);
-
-external function __ghdl_signal_driving_value_b2 (
-  sig: __ghdl_signal_ptr)
-  return __ghdl_bool_type;
-
-external function __ghdl_create_signal_i32 (
-  init_val: __ghdl_i32;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  return __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_init_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external procedure __ghdl_signal_simple_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external procedure __ghdl_signal_start_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_next_assign_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_associate_i32 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i32);
-
-external function __ghdl_signal_driving_value_i32 (
-  sig: __ghdl_signal_ptr)
-  return __ghdl_i32;
-
-external function __ghdl_create_signal_f64 (
-  init_val: __ghdl_real;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  return __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_init_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-external procedure __ghdl_signal_simple_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-external procedure __ghdl_signal_start_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_real;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_next_assign_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_associate_f64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_real);
-
-external function __ghdl_signal_driving_value_f64 (
-  sig: __ghdl_signal_ptr)
-  return __ghdl_real;
-
-external function __ghdl_create_signal_i64 (
-  init_val: __ghdl_i64;
-  resolv_func: __ghdl_ptr;
-  resolv_inst: __ghdl_ptr)
-  return __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_init_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-external procedure __ghdl_signal_simple_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-external procedure __ghdl_signal_start_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  reject: std__standard__time__BT;
-  val: __ghdl_i64;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_next_assign_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64;
-  after: std__standard__time__BT);
-
-external procedure __ghdl_signal_associate_i64 (
-  sig: __ghdl_signal_ptr;
-  val: __ghdl_i64);
-
-external function __ghdl_signal_driving_value_i64 (
-  sig: __ghdl_signal_ptr)
-  return __ghdl_i64;
-
-external procedure __ghdl_process_add_sensitivity (
-  sig: __ghdl_signal_ptr);
-
-external procedure __ghdl_process_add_driver (
-  sig: __ghdl_signal_ptr);
-
-external procedure __ghdl_signal_direct_driver (
-  sig: __ghdl_signal_ptr;
-  drv: __ghdl_ptr);
-
-external procedure __ghdl_signal_in_conversion (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  src: __ghdl_signal_ptr;
-  src_len: __ghdl_index_type;
-  dst: __ghdl_signal_ptr;
-  dst_len: __ghdl_index_type);
-
-external procedure __ghdl_signal_out_conversion (
-  func: __ghdl_ptr;
-  INSTANCE: __ghdl_ptr;
-  src: __ghdl_signal_ptr;
-  src_len: __ghdl_index_type;
-  dst: __ghdl_signal_ptr;
-  dst_len: __ghdl_index_type);
-
-external function __ghdl_create_stable_signal (
-  val: std__standard__time__BT)
-  return __ghdl_signal_ptr;
-
-external function __ghdl_create_quiet_signal (
-  val: std__standard__time__BT)
-  return __ghdl_signal_ptr;
-
-external function __ghdl_create_transaction_signal (
-  )
-  return __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_attribute_register_prefix (
-  sig: __ghdl_signal_ptr);
-
-external function __ghdl_create_delayed_signal (
-  sig: __ghdl_signal_ptr;
-  val: std__standard__time__BT)
-  return __ghdl_signal_ptr;
-
-external function __ghdl_signal_create_guard (
-  this: __ghdl_ptr;
-  proc: __ghdl_ptr)
-  return __ghdl_signal_ptr;
-
-external procedure __ghdl_signal_guard_dependence (
-  sig: __ghdl_signal_ptr);
-
-external procedure __ghdl_process_wait_exit (
-  );
-
-external procedure __ghdl_process_wait_timeout (
-  time: std__standard__time__BT);
-
-external procedure __ghdl_process_wait_set_timeout (
-  time: std__standard__time__BT);
-
-external procedure __ghdl_process_wait_add_sensitivity (
-  sig: __ghdl_signal_ptr);
-
-external function __ghdl_process_wait_suspend (
-  )
-  return __ghdl_bool_type;
-
-external procedure __ghdl_process_wait_close (
-  );
-
-external procedure __ghdl_get_path_name (
-  res: std__standard__string__PTR;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr;
-  name: __ghdl_str_len_ptr);
-
-external procedure __ghdl_get_instance_name (
-  res: std__standard__string__PTR;
-  ctxt: __ghdl_rti_access;
-  addr: __ghdl_ptr;
-  name: __ghdl_str_len_ptr);
-
-private constant _UI00000000 : subarray __ghdl_chararray[__ghdl_index_type'[11]
-  ];
-
-constant _UI00000000 := {__ghdl_char'[114], __ghdl_char'[101],
-   __ghdl_char'[112], __ghdl_char'[114], __ghdl_char'[111], __ghdl_char'[46],
-   __ghdl_char'[118], __ghdl_char'[104], __ghdl_char'[100], __ghdl_char'[108],
-   __ghdl_char'[0]};
-
---F repro.vhdl
-
--- entity repro
-
-type work__repro__INSTTYPE is record;
-
-type work__repro__INSTPTR is access work__repro__INSTTYPE;
-
-type work__repro__INSTTYPE is record 
-  RTI: __ghdl_entity_link_type; 
-end record;
-
-public procedure work__repro__ELAB (
-  INSTANCE: work__repro__INSTPTR);
-
-external constant work__RTI : __ghdl_rtin_type_scalar;
-
-public constant work__repro__RTI : __ghdl_rtin_block;
-
-private constant work__repro__RTISTR : subarray __ghdl_chararray[
-  __ghdl_index_type'[6]];
-
-constant work__repro__RTISTR := {__ghdl_char'[114], __ghdl_char'[101],
-   __ghdl_char'[112], __ghdl_char'[114], __ghdl_char'[111], __ghdl_char'[0]};
-
-private constant work__repro__RTIARRAY : subarray __ghdl_rti_array[
-  __ghdl_index_type'[1]];
-
-constant work__repro__RTIARRAY := {__ghdl_rti_access'[null]};
-
-constant work__repro__RTI := {.common = 
-  {.kind = __ghdl_rtik'[__ghdl_rtik_entity], .depth = __ghdl_rti_depth'[1],
-   .mode = __ghdl_rti_u8'[0], .max_depth = __ghdl_rti_depth'[0]},
-   .name = __ghdl_char_ptr'address (work__repro__RTISTR),
-   .loc = {.address = __ghdl_ptr'[null]},
-   .parent = __ghdl_rti_access'unchecked_address (work__RTI),
-   .size = __ghdl_index_type'sizeof (work__repro__INSTTYPE),
-   .nbr_child = __ghdl_index_type'[0],
-   .children = __ghdl_rti_arr_acc'address (work__repro__RTIARRAY)};
-
-public procedure work__repro__ELAB (
-  INSTANCE: work__repro__INSTPTR)
-declare
-begin
-  --# 1
-  --# 1
-end;
-
---F repro.vhdl
-
--- architecture ghdl_bug
-
-type work__repro__ARCH__ghdl_bug__INSTTYPE is record;
-
-type work__repro__ARCH__ghdl_bug__INSTPTR is access 
-  work__repro__ARCH__ghdl_bug__INSTTYPE;
-
-type work__repro__ARCH__ghdl_bug__P0__INSTTYPE is record 
-end record;
-
-type work__repro__ARCH__ghdl_bug__P1__INSTTYPE is record 
-end record;
-
-type work__repro__ARCH__ghdl_bug__P2__INSTTYPE is record 
-end record;
-
-type work__repro__ARCH__ghdl_bug__P3__INSTTYPE is record 
-end record;
-
-type work__repro__ARCH__ghdl_bug__INSTTYPE is record 
-  ENTITY: work__repro__INSTTYPE; 
-  P0: work__repro__ARCH__ghdl_bug__P0__INSTTYPE; 
-  P1: work__repro__ARCH__ghdl_bug__P1__INSTTYPE; 
-  P2: work__repro__ARCH__ghdl_bug__P2__INSTTYPE; 
-  P3: work__repro__ARCH__ghdl_bug__P3__INSTTYPE; 
-end record;
-
-public constant work__repro__ARCH__ghdl_bug__INSTSIZE : __ghdl_index_type;
-
-constant work__repro__ARCH__ghdl_bug__INSTSIZE := __ghdl_index_type'sizeof (
-  work__repro__ARCH__ghdl_bug__INSTTYPE);
-
-public procedure work__repro__ARCH__ghdl_bug__ELAB (
-  INSTANCE: work__repro__INSTPTR);
-
-public constant work__repro__ARCH__ghdl_bug__RTI : __ghdl_rtin_block;
-
-public constant work__repro__ARCH__ghdl_bug__P0__RTI : __ghdl_rtin_block;
-
-private constant work__repro__ARCH__ghdl_bug__P0__RTISTR : subarray 
-  __ghdl_chararray[__ghdl_index_type'[3]];
-
-constant work__repro__ARCH__ghdl_bug__P0__RTISTR := {__ghdl_char'[80],
-   __ghdl_char'[48], __ghdl_char'[0]};
-
-private constant work__repro__ARCH__ghdl_bug__P0__RTIARRAY : subarray 
-  __ghdl_rti_array[__ghdl_index_type'[1]];
-
-constant work__repro__ARCH__ghdl_bug__P0__RTIARRAY := 
-  {__ghdl_rti_access'[null]};
-
-constant work__repro__ARCH__ghdl_bug__P0__RTI := {.common = 
-  {.kind = __ghdl_rtik'[__ghdl_rtik_process], .depth = __ghdl_rti_depth'[2],
-   .mode = __ghdl_rti_u8'[0], .max_depth = __ghdl_rti_depth'[0]},
-   .name = __ghdl_char_ptr'address (work__repro__ARCH__ghdl_bug__P0__RTISTR),
-   .loc = {.offset = __ghdl_index_type'offsetof (
-  work__repro__ARCH__ghdl_bug__INSTTYPE.P0)},
-   .parent = __ghdl_rti_access'unchecked_address (
-  work__repro__ARCH__ghdl_bug__RTI),
-   .size = __ghdl_index_type'sizeof (work__repro__ARCH__ghdl_bug__P0__INSTTYPE)
-  , .nbr_child = __ghdl_index_type'[0],
-   .children = __ghdl_rti_arr_acc'address (
-  work__repro__ARCH__ghdl_bug__P0__RTIARRAY)};
-
-public constant work__repro__ARCH__ghdl_bug__P1__RTI : __ghdl_rtin_block;
-
-private constant work__repro__ARCH__ghdl_bug__P1__RTISTR : subarray 
-  __ghdl_chararray[__ghdl_index_type'[3]];
-
-constant work__repro__ARCH__ghdl_bug__P1__RTISTR := {__ghdl_char'[80],
-   __ghdl_char'[49], __ghdl_char'[0]};
-
-private constant work__repro__ARCH__ghdl_bug__P1__RTIARRAY : subarray 
-  __ghdl_rti_array[__ghdl_index_type'[1]];
-
-constant work__repro__ARCH__ghdl_bug__P1__RTIARRAY := 
-  {__ghdl_rti_access'[null]};
-
-constant work__repro__ARCH__ghdl_bug__P1__RTI := {.common = 
-  {.kind = __ghdl_rtik'[__ghdl_rtik_process], .depth = __ghdl_rti_depth'[2],
-   .mode = __ghdl_rti_u8'[0], .max_depth = __ghdl_rti_depth'[0]},
-   .name = __ghdl_char_ptr'address (work__repro__ARCH__ghdl_bug__P1__RTISTR),
-   .loc = {.offset = __ghdl_index_type'offsetof (
-  work__repro__ARCH__ghdl_bug__INSTTYPE.P1)},
-   .parent = __ghdl_rti_access'unchecked_address (
-  work__repro__ARCH__ghdl_bug__RTI),
-   .size = __ghdl_index_type'sizeof (work__repro__ARCH__ghdl_bug__P1__INSTTYPE)
-  , .nbr_child = __ghdl_index_type'[0],
-   .children = __ghdl_rti_arr_acc'address (
-  work__repro__ARCH__ghdl_bug__P1__RTIARRAY)};
-
-public constant work__repro__ARCH__ghdl_bug__P2__RTI : __ghdl_rtin_block;
-
-private constant work__repro__ARCH__ghdl_bug__P2__RTISTR : subarray 
-  __ghdl_chararray[__ghdl_index_type'[3]];
-
-constant work__repro__ARCH__ghdl_bug__P2__RTISTR := {__ghdl_char'[80],
-   __ghdl_char'[50], __ghdl_char'[0]};
-
-private constant work__repro__ARCH__ghdl_bug__P2__RTIARRAY : subarray 
-  __ghdl_rti_array[__ghdl_index_type'[1]];
-
-constant work__repro__ARCH__ghdl_bug__P2__RTIARRAY := 
-  {__ghdl_rti_access'[null]};
-
-constant work__repro__ARCH__ghdl_bug__P2__RTI := {.common = 
-  {.kind = __ghdl_rtik'[__ghdl_rtik_process], .depth = __ghdl_rti_depth'[2],
-   .mode = __ghdl_rti_u8'[0], .max_depth = __ghdl_rti_depth'[0]},
-   .name = __ghdl_char_ptr'address (work__repro__ARCH__ghdl_bug__P2__RTISTR),
-   .loc = {.offset = __ghdl_index_type'offsetof (
-  work__repro__ARCH__ghdl_bug__INSTTYPE.P2)},
-   .parent = __ghdl_rti_access'unchecked_address (
-  work__repro__ARCH__ghdl_bug__RTI),
-   .size = __ghdl_index_type'sizeof (work__repro__ARCH__ghdl_bug__P2__INSTTYPE)
-  , .nbr_child = __ghdl_index_type'[0],
-   .children = __ghdl_rti_arr_acc'address (
-  work__repro__ARCH__ghdl_bug__P2__RTIARRAY)};
-
-public constant work__repro__ARCH__ghdl_bug__P3__RTI : __ghdl_rtin_block;
-
-private constant work__repro__ARCH__ghdl_bug__P3__RTISTR : subarray 
-  __ghdl_chararray[__ghdl_index_type'[3]];
-
-constant work__repro__ARCH__ghdl_bug__P3__RTISTR := {__ghdl_char'[80],
-   __ghdl_char'[51], __ghdl_char'[0]};
-
-private constant work__repro__ARCH__ghdl_bug__P3__RTIARRAY : subarray 
-  __ghdl_rti_array[__ghdl_index_type'[1]];
-
-constant work__repro__ARCH__ghdl_bug__P3__RTIARRAY := 
-  {__ghdl_rti_access'[null]};
-
-constant work__repro__ARCH__ghdl_bug__P3__RTI := {.common = 
-  {.kind = __ghdl_rtik'[__ghdl_rtik_process], .depth = __ghdl_rti_depth'[2],
-   .mode = __ghdl_rti_u8'[0], .max_depth = __ghdl_rti_depth'[0]},
-   .name = __ghdl_char_ptr'address (work__repro__ARCH__ghdl_bug__P3__RTISTR),
-   .loc = {.offset = __ghdl_index_type'offsetof (
-  work__repro__ARCH__ghdl_bug__INSTTYPE.P3)},
-   .parent = __ghdl_rti_access'unchecked_address (
-  work__repro__ARCH__ghdl_bug__RTI),
-   .size = __ghdl_index_type'sizeof (work__repro__ARCH__ghdl_bug__P3__INSTTYPE)
-  , .nbr_child = __ghdl_index_type'[0],
-   .children = __ghdl_rti_arr_acc'address (
-  work__repro__ARCH__ghdl_bug__P3__RTIARRAY)};
-
-private constant work__repro__ARCH__ghdl_bug__RTISTR : subarray 
-  __ghdl_chararray[__ghdl_index_type'[9]];
-
-constant work__repro__ARCH__ghdl_bug__RTISTR := {__ghdl_char'[103],
-   __ghdl_char'[104], __ghdl_char'[100], __ghdl_char'[108], __ghdl_char'[95],
-   __ghdl_char'[98], __ghdl_char'[117], __ghdl_char'[103], __ghdl_char'[0]};
-
-private constant work__repro__ARCH__ghdl_bug__RTIARRAY : subarray 
-  __ghdl_rti_array[__ghdl_index_type'[5]];
-
-constant work__repro__ARCH__ghdl_bug__RTIARRAY := 
-  {__ghdl_rti_access'unchecked_address (work__repro__ARCH__ghdl_bug__P0__RTI),
-   __ghdl_rti_access'unchecked_address (work__repro__ARCH__ghdl_bug__P1__RTI),
-   __ghdl_rti_access'unchecked_address (work__repro__ARCH__ghdl_bug__P2__RTI),
-   __ghdl_rti_access'unchecked_address (work__repro__ARCH__ghdl_bug__P3__RTI),
-   __ghdl_rti_access'[null]};
-
-constant work__repro__ARCH__ghdl_bug__RTI := {.common = 
-  {.kind = __ghdl_rtik'[__ghdl_rtik_architecture],
-   .depth = __ghdl_rti_depth'[1], .mode = __ghdl_rti_u8'[0],
-   .max_depth = __ghdl_rti_depth'[0]},
-   .name = __ghdl_char_ptr'address (work__repro__ARCH__ghdl_bug__RTISTR),
-   .loc = {.offset = __ghdl_index_type'offsetof (
-  work__repro__ARCH__ghdl_bug__INSTTYPE.ENTITY)},
-   .parent = __ghdl_rti_access'unchecked_address (work__repro__RTI),
-   .size = __ghdl_index_type'sizeof (work__repro__ARCH__ghdl_bug__INSTTYPE),
-   .nbr_child = __ghdl_index_type'[4],
-   .children = __ghdl_rti_arr_acc'address (work__repro__ARCH__ghdl_bug__RTIARRAY
-  )};
-
-
-private procedure work__repro__ARCH__ghdl_bug__P0__PROC (
-  INSTANCE: work__repro__ARCH__ghdl_bug__INSTPTR)
-declare
-  type work__repro__ARCH__ghdl_bug__P0__U0 is subarray 
-    std__standard__bit_vector__BASE[__ghdl_index_type'[5]];
-  private constant _UI00000001 : work__repro__ARCH__ghdl_bug__P0__U0;
-  constant _UI00000001 := {};
-  private constant work__repro__ARCH__ghdl_bug__P0__U1__STB : 
-    std__standard__bit_vector__BOUND;
-  constant work__repro__ARCH__ghdl_bug__P0__U1__STB := {.dim_1 = 
-    {.left = std__standard__integer__BT'[0],
-     .right = std__standard__integer__BT'[4], .dir = __ghdl_dir_type'[dir_to],
-     .length = __ghdl_index_type'[5]}};
-begin
-  --# 7
-  declare
-    local var T0_0 : std__standard__bit_vector;
-    type work__repro__ARCH__ghdl_bug__P0__U2 is subarray 
-      std__standard__bit_vector__BASE[__ghdl_index_type'[5]];
-    private constant _UI00000002 : work__repro__ARCH__ghdl_bug__P0__U2;
-    constant _UI00000002 := {std__standard__bit'[C_1],
-       std__standard__bit'[C_1], std__standard__bit'[C_1],
-       std__standard__bit'[C_0], std__standard__bit'[C_0]};
-    private constant work__repro__ARCH__ghdl_bug__P0__U3__STB : 
-      std__standard__bit_vector__BOUND;
-    constant work__repro__ARCH__ghdl_bug__P0__U3__STB := {.dim_1 = 
-      {.left = std__standard__integer__BT'[0],
-       .right = std__standard__integer__BT'[4],
-       .dir = __ghdl_dir_type'[dir_to], .length = __ghdl_index_type'[5]}};
-    local var T0_1 : std__standard__bit_vector;
-    private constant _UI00000003 : __ghdl_location;
-    constant _UI00000003 := 
-      {.filename = __ghdl_char_ptr'address (_UI00000000),
-       .line = __ghdl_i32'[7], .col = __ghdl_i32'[3]};
-    type work__repro__ARCH__ghdl_bug__P0__U4 is subarray 
-      std__standard__string__BASE[__ghdl_index_type'[16]];
-    private constant _UI00000004 : work__repro__ARCH__ghdl_bug__P0__U4;
-    constant _UI00000004 := {std__standard__character'[C_r],
-       std__standard__character'[C_o], std__standard__character'[C_r],
-       std__standard__character'[C20], std__standard__character'[C20],
-       std__standard__character'[C_5], std__standard__character'[C20],
-       std__standard__character'[C_i], std__standard__character'[C_s],
-       std__standard__character'[C20], std__standard__character'[C_b],
-       std__standard__character'[C_r], std__standard__character'[C_o],
-       std__standard__character'[C_k], std__standard__character'[C_e],
-       std__standard__character'[C_n]};
-    private constant work__repro__ARCH__ghdl_bug__P0__U5__STB : 
-      std__standard__string__BOUND;
-    constant work__repro__ARCH__ghdl_bug__P0__U5__STB := {.dim_1 = 
-      {.left = std__standard__integer__BT'[1],
-       .right = std__standard__integer__BT'[16],
-       .dir = __ghdl_dir_type'[dir_to], .length = __ghdl_index_type'[16]}};
-  begin
-    T0_0.BASE := std__standard__bit_vector__BASEP'conv (
-      std__standard__bit_vector__BASEP'address (_UI00000001));
-    T0_0.BOUNDS := std__standard__bit_vector__BOUNDP'address (
-      work__repro__ARCH__ghdl_bug__P0__U1__STB);
-    T0_1.BASE := std__standard__bit_vector__BASEP'conv (
-      std__standard__bit_vector__BASEP'address (_UI00000002));
-    T0_1.BOUNDS := std__standard__bit_vector__BOUNDP'address (
-      work__repro__ARCH__ghdl_bug__P0__U3__STB);
-    if not std__standard__bit_vector_EQ (std__standard__bit_vector__PTR
-      'address (T0_0), std__standard__bit_vector__PTR'address (T0_1)) then
-      declare
-        local var T1_0 : std__standard__string;
-      begin
-        T1_0.BASE := std__standard__string__BASEP'conv (
-          std__standard__string__BASEP'address (_UI00000004));
-        T1_0.BOUNDS := std__standard__string__BOUNDP'address (
-          work__repro__ARCH__ghdl_bug__P0__U5__STB);
-        __ghdl_assert_failed (std__standard__string__PTR'address (T1_0), 
-          std__standard__severity_level'[warning], __ghdl_location_ptr
-          'address (_UI00000003), __ghdl_rti_access'[null]);
-      end;
-    end if;
-  end;
-end;
-
-
-private procedure work__repro__ARCH__ghdl_bug__P1__PROC (
-  INSTANCE: work__repro__ARCH__ghdl_bug__INSTPTR)
-declare
-  type work__repro__ARCH__ghdl_bug__P1__U0 is subarray 
-    std__standard__bit_vector__BASE[__ghdl_index_type'[5]];
-  private constant _UI00000005 : work__repro__ARCH__ghdl_bug__P1__U0;
-  constant _UI00000005 := {std__standard__bit'[C_1], std__standard__bit'[C_1],
-     std__standard__bit'[C_1], std__standard__bit'[C_0],
-     std__standard__bit'[C_0]};
-  private constant work__repro__ARCH__ghdl_bug__P1__U1__STB : 
-    std__standard__bit_vector__BOUND;
-  constant work__repro__ARCH__ghdl_bug__P1__U1__STB := {.dim_1 = 
-    {.left = std__standard__integer__BT'[0],
-     .right = std__standard__integer__BT'[4], .dir = __ghdl_dir_type'[dir_to],
-     .length = __ghdl_index_type'[5]}};
-begin
-  --# 8
-  declare
-    local var T0_0 : std__standard__bit_vector;
-    local var T0_1 : __ghdl_ptr;
-    local var T0_2 : std__standard__bit_vector;
-    type work__repro__ARCH__ghdl_bug__P1__U2 is subarray 
-      std__standard__bit_vector__BASE[__ghdl_index_type'[5]];
-    private constant _UI00000006 : work__repro__ARCH__ghdl_bug__P1__U2;
-    constant _UI00000006 := {std__standard__bit'[C_1],
-       std__standard__bit'[C_1], std__standard__bit'[C_1],
-       std__standard__bit'[C_0], std__standard__bit'[C_0]};
-    private constant work__repro__ARCH__ghdl_bug__P1__U3__STB : 
-      std__standard__bit_vector__BOUND;
-    constant work__repro__ARCH__ghdl_bug__P1__U3__STB := {.dim_1 = 
-      {.left = std__standard__integer__BT'[0],
-       .right = std__standard__integer__BT'[4],
-       .dir = __ghdl_dir_type'[dir_to], .length = __ghdl_index_type'[5]}};
-    local var T0_3 : std__standard__bit_vector;
-    private constant _UI00000007 : __ghdl_location;
-    constant _UI00000007 := 
-      {.filename = __ghdl_char_ptr'address (_UI00000000),
-       .line = __ghdl_i32'[8], .col = __ghdl_i32'[3]};
-    type work__repro__ARCH__ghdl_bug__P1__U4 is subarray 
-      std__standard__string__BASE[__ghdl_index_type'[17]];
-    private constant _UI00000008 : work__repro__ARCH__ghdl_bug__P1__U4;
-    constant _UI00000008 := {std__standard__character'[C_r],
-       std__standard__character'[C_o], std__standard__character'[C_r],
-       std__standard__character'[C20], std__standard__character'[C20],
-       std__standard__character'[C_5], std__standard__character'[C20],
-       std__standard__character'[C_i], std__standard__character'[C_s],
-       std__standard__character'[C20], std__standard__character'[C_b],
-       std__standard__character'[C_r], std__standard__character'[C_o],
-       std__standard__character'[C_k], std__standard__character'[C_e],
-       std__standard__character'[C_n], std__standard__character'[C20]};
-    private constant work__repro__ARCH__ghdl_bug__P1__U5__STB : 
-      std__standard__string__BOUND;
-    constant work__repro__ARCH__ghdl_bug__P1__U5__STB := {.dim_1 = 
-      {.left = std__standard__integer__BT'[1],
-       .right = std__standard__integer__BT'[17],
-       .dir = __ghdl_dir_type'[dir_to], .length = __ghdl_index_type'[17]}};
-  begin
-    T0_0.BASE := std__standard__bit_vector__BASEP'conv (
-      std__standard__bit_vector__BASEP'address (_UI00000005));
-    T0_0.BOUNDS := std__standard__bit_vector__BOUNDP'address (
-      work__repro__ARCH__ghdl_bug__P1__U1__STB);
-    T0_1 := __ghdl_stack2_mark ();
-    std__standard__bit_vector_ROT (std__standard__bit_vector__PTR'address (T0_2
-      ), std__standard__bit_vector__PTR'address (T0_0), 
-      std__standard__integer__BT'[5]);
-    T0_3.BASE := std__standard__bit_vector__BASEP'conv (
-      std__standard__bit_vector__BASEP'address (_UI00000006));
-    T0_3.BOUNDS := std__standard__bit_vector__BOUNDP'address (
-      work__repro__ARCH__ghdl_bug__P1__U3__STB);
-    if not std__standard__bit_vector_EQ (std__standard__bit_vector__PTR
-      'address (T0_2), std__standard__bit_vector__PTR'address (T0_3)) then
-      declare
-        local var T1_0 : std__standard__string;
-      begin
-        T1_0.BASE := std__standard__string__BASEP'conv (
-          std__standard__string__BASEP'address (_UI00000008));
-        T1_0.BOUNDS := std__standard__string__BOUNDP'address (
-          work__repro__ARCH__ghdl_bug__P1__U5__STB);
-        __ghdl_assert_failed (std__standard__string__PTR'address (T1_0), 
-          std__standard__severity_level'[warning], __ghdl_location_ptr
-          'address (_UI00000007), __ghdl_rti_access'[null]);
-      end;
-    end if;
-    __ghdl_stack2_release (T0_1);
-  end;
-end;
-
-
-private procedure work__repro__ARCH__ghdl_bug__P2__PROC (
-  INSTANCE: work__repro__ARCH__ghdl_bug__INSTPTR)
-declare
-  type work__repro__ARCH__ghdl_bug__P2__U0 is subarray 
-    std__standard__bit_vector__BASE[__ghdl_index_type'[5]];
-  private constant _UI00000009 : work__repro__ARCH__ghdl_bug__P2__U0;
-  constant _UI00000009 := {};
-  private constant work__repro__ARCH__ghdl_bug__P2__U1__STB : 
-    std__standard__bit_vector__BOUND;
-  constant work__repro__ARCH__ghdl_bug__P2__U1__STB := {.dim_1 = 
-    {.left = std__standard__integer__BT'[0],
-     .right = std__standard__integer__BT'[4], .dir = __ghdl_dir_type'[dir_to],
-     .length = __ghdl_index_type'[5]}};
-begin
-  --# 10
-  declare
-    local var T0_0 : std__standard__bit_vector;
-    type work__repro__ARCH__ghdl_bug__P2__U2 is subarray 
-      std__standard__bit_vector__BASE[__ghdl_index_type'[5]];
-    private constant _UI0000000a : work__repro__ARCH__ghdl_bug__P2__U2;
-    constant _UI0000000a := {std__standard__bit'[C_1],
-       std__standard__bit'[C_1], std__standard__bit'[C_1],
-       std__standard__bit'[C_0], std__standard__bit'[C_0]};
-    private constant work__repro__ARCH__ghdl_bug__P2__U3__STB : 
-      std__standard__bit_vector__BOUND;
-    constant work__repro__ARCH__ghdl_bug__P2__U3__STB := {.dim_1 = 
-      {.left = std__standard__integer__BT'[0],
-       .right = std__standard__integer__BT'[4],
-       .dir = __ghdl_dir_type'[dir_to], .length = __ghdl_index_type'[5]}};
-    local var T0_1 : std__standard__bit_vector;
-    private constant _UI0000000b : __ghdl_location;
-    constant _UI0000000b := 
-      {.filename = __ghdl_char_ptr'address (_UI00000000),
-       .line = __ghdl_i32'[10], .col = __ghdl_i32'[3]};
-    type work__repro__ARCH__ghdl_bug__P2__U4 is subarray 
-      std__standard__string__BASE[__ghdl_index_type'[16]];
-    private constant _UI0000000c : work__repro__ARCH__ghdl_bug__P2__U4;
-    constant _UI0000000c := {std__standard__character'[C_r],
-       std__standard__character'[C_o], std__standard__character'[C_l],
-       std__standard__character'[C20], std__standard__character'[C2d],
-       std__standard__character'[C_5], std__standard__character'[C20],
-       std__standard__character'[C_i], std__standard__character'[C_s],
-       std__standard__character'[C20], std__standard__character'[C_b],
-       std__standard__character'[C_r], std__standard__character'[C_o],
-       std__standard__character'[C_k], std__standard__character'[C_e],
-       std__standard__character'[C_n]};
-    private constant work__repro__ARCH__ghdl_bug__P2__U5__STB : 
-      std__standard__string__BOUND;
-    constant work__repro__ARCH__ghdl_bug__P2__U5__STB := {.dim_1 = 
-      {.left = std__standard__integer__BT'[1],
-       .right = std__standard__integer__BT'[16],
-       .dir = __ghdl_dir_type'[dir_to], .length = __ghdl_index_type'[16]}};
-  begin
-    T0_0.BASE := std__standard__bit_vector__BASEP'conv (
-      std__standard__bit_vector__BASEP'address (_UI00000009));
-    T0_0.BOUNDS := std__standard__bit_vector__BOUNDP'address (
-      work__repro__ARCH__ghdl_bug__P2__U1__STB);
-    T0_1.BASE := std__standard__bit_vector__BASEP'conv (
-      std__standard__bit_vector__BASEP'address (_UI0000000a));
-    T0_1.BOUNDS := std__standard__bit_vector__BOUNDP'address (
-      work__repro__ARCH__ghdl_bug__P2__U3__STB);
-    if not std__standard__bit_vector_EQ (std__standard__bit_vector__PTR
-      'address (T0_0), std__standard__bit_vector__PTR'address (T0_1)) then
-      declare
-        local var T1_0 : std__standard__string;
-      begin
-        T1_0.BASE := std__standard__string__BASEP'conv (
-          std__standard__string__BASEP'address (_UI0000000c));
-        T1_0.BOUNDS := std__standard__string__BOUNDP'address (
-          work__repro__ARCH__ghdl_bug__P2__U5__STB);
-        __ghdl_assert_failed (std__standard__string__PTR'address (T1_0), 
-          std__standard__severity_level'[warning], __ghdl_location_ptr
-          'address (_UI0000000b), __ghdl_rti_access'[null]);
-      end;
-    end if;
-  end;
-end;
-
-
-private procedure work__repro__ARCH__ghdl_bug__P3__PROC (
-  INSTANCE: work__repro__ARCH__ghdl_bug__INSTPTR)
-declare
-  type work__repro__ARCH__ghdl_bug__P3__U0 is subarray 
-    std__standard__bit_vector__BASE[__ghdl_index_type'[5]];
-  private constant _UI0000000d : work__repro__ARCH__ghdl_bug__P3__U0;
-  constant _UI0000000d := {std__standard__bit'[C_1], std__standard__bit'[C_1],
-     std__standard__bit'[C_1], std__standard__bit'[C_0],
-     std__standard__bit'[C_0]};
-  private constant work__repro__ARCH__ghdl_bug__P3__U1__STB : 
-    std__standard__bit_vector__BOUND;
-  constant work__repro__ARCH__ghdl_bug__P3__U1__STB := {.dim_1 = 
-    {.left = std__standard__integer__BT'[0],
-     .right = std__standard__integer__BT'[4], .dir = __ghdl_dir_type'[dir_to],
-     .length = __ghdl_index_type'[5]}};
-begin
-  --# 11
-  declare
-    local var T0_0 : std__standard__bit_vector;
-    local var T0_1 : __ghdl_ptr;
-    local var T0_2 : std__standard__bit_vector;
-    type work__repro__ARCH__ghdl_bug__P3__U2 is subarray 
-      std__standard__bit_vector__BASE[__ghdl_index_type'[5]];
-    private constant _UI0000000e : work__repro__ARCH__ghdl_bug__P3__U2;
-    constant _UI0000000e := {std__standard__bit'[C_1],
-       std__standard__bit'[C_1], std__standard__bit'[C_1],
-       std__standard__bit'[C_0], std__standard__bit'[C_0]};
-    private constant work__repro__ARCH__ghdl_bug__P3__U3__STB : 
-      std__standard__bit_vector__BOUND;
-    constant work__repro__ARCH__ghdl_bug__P3__U3__STB := {.dim_1 = 
-      {.left = std__standard__integer__BT'[0],
-       .right = std__standard__integer__BT'[4],
-       .dir = __ghdl_dir_type'[dir_to], .length = __ghdl_index_type'[5]}};
-    local var T0_3 : std__standard__bit_vector;
-    private constant _UI0000000f : __ghdl_location;
-    constant _UI0000000f := 
-      {.filename = __ghdl_char_ptr'address (_UI00000000),
-       .line = __ghdl_i32'[11], .col = __ghdl_i32'[3]};
-    type work__repro__ARCH__ghdl_bug__P3__U4 is subarray 
-      std__standard__string__BASE[__ghdl_index_type'[17]];
-    private constant _UI00000010 : work__repro__ARCH__ghdl_bug__P3__U4;
-    constant _UI00000010 := {std__standard__character'[C_r],
-       std__standard__character'[C_o], std__standard__character'[C_l],
-       std__standard__character'[C20], std__standard__character'[C2d],
-       std__standard__character'[C_5], std__standard__character'[C20],
-       std__standard__character'[C_i], std__standard__character'[C_s],
-       std__standard__character'[C20], std__standard__character'[C_b],
-       std__standard__character'[C_r], std__standard__character'[C_o],
-       std__standard__character'[C_k], std__standard__character'[C_e],
-       std__standard__character'[C_n], std__standard__character'[C20]};
-    private constant work__repro__ARCH__ghdl_bug__P3__U5__STB : 
-      std__standard__string__BOUND;
-    constant work__repro__ARCH__ghdl_bug__P3__U5__STB := {.dim_1 = 
-      {.left = std__standard__integer__BT'[1],
-       .right = std__standard__integer__BT'[17],
-       .dir = __ghdl_dir_type'[dir_to], .length = __ghdl_index_type'[17]}};
-  begin
-    T0_0.BASE := std__standard__bit_vector__BASEP'conv (
-      std__standard__bit_vector__BASEP'address (_UI0000000d));
-    T0_0.BOUNDS := std__standard__bit_vector__BOUNDP'address (
-      work__repro__ARCH__ghdl_bug__P3__U1__STB);
-    T0_1 := __ghdl_stack2_mark ();
-    std__standard__bit_vector_ROT (std__standard__bit_vector__PTR'address (T0_2
-      ), std__standard__bit_vector__PTR'address (T0_0), -
-      std__standard__integer__BT'[-5]);
-    T0_3.BASE := std__standard__bit_vector__BASEP'conv (
-      std__standard__bit_vector__BASEP'address (_UI0000000e));
-    T0_3.BOUNDS := std__standard__bit_vector__BOUNDP'address (
-      work__repro__ARCH__ghdl_bug__P3__U3__STB);
-    if not std__standard__bit_vector_EQ (std__standard__bit_vector__PTR
-      'address (T0_2), std__standard__bit_vector__PTR'address (T0_3)) then
-      declare
-        local var T1_0 : std__standard__string;
-      begin
-        T1_0.BASE := std__standard__string__BASEP'conv (
-          std__standard__string__BASEP'address (_UI00000010));
-        T1_0.BOUNDS := std__standard__string__BOUNDP'address (
-          work__repro__ARCH__ghdl_bug__P3__U5__STB);
-        __ghdl_assert_failed (std__standard__string__PTR'address (T1_0), 
-          std__standard__severity_level'[warning], __ghdl_location_ptr
-          'address (_UI0000000f), __ghdl_rti_access'[null]);
-      end;
-    end if;
-    __ghdl_stack2_release (T0_1);
-  end;
-end;
-
-public procedure work__repro__ARCH__ghdl_bug__ELAB (
-  INSTANCE: work__repro__INSTPTR)
-declare
-  local var ARCH_INSTANCE : work__repro__ARCH__ghdl_bug__INSTPTR;
-begin
-  ARCH_INSTANCE := work__repro__ARCH__ghdl_bug__INSTPTR'conv (INSTANCE);
-  INSTANCE.all.RTI.rti := __ghdl_rti_access'unchecked_address (
-    work__repro__ARCH__ghdl_bug__RTI);
-  work__repro__ELAB (INSTANCE);
-  --# 4
-  --# 4
-  --# 7
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.all), __ghdl_ptr'subprg_addr (
-    work__repro__ARCH__ghdl_bug__P0__PROC), __ghdl_rti_access
-    'unchecked_address (work__repro__ARCH__ghdl_bug__P0__RTI), __ghdl_ptr
-    'unchecked_address (ARCH_INSTANCE.all.P0));
-  --# 8
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.all), __ghdl_ptr'subprg_addr (
-    work__repro__ARCH__ghdl_bug__P1__PROC), __ghdl_rti_access
-    'unchecked_address (work__repro__ARCH__ghdl_bug__P1__RTI), __ghdl_ptr
-    'unchecked_address (ARCH_INSTANCE.all.P1));
-  --# 10
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.all), __ghdl_ptr'subprg_addr (
-    work__repro__ARCH__ghdl_bug__P2__PROC), __ghdl_rti_access
-    'unchecked_address (work__repro__ARCH__ghdl_bug__P2__RTI), __ghdl_ptr
-    'unchecked_address (ARCH_INSTANCE.all.P2));
-  --# 11
-  __ghdl_sensitized_process_register (__ghdl_ptr'unchecked_address (
-    ARCH_INSTANCE.all), __ghdl_ptr'subprg_addr (
-    work__repro__ARCH__ghdl_bug__P3__PROC), __ghdl_rti_access
-    'unchecked_address (work__repro__ARCH__ghdl_bug__P3__RTI), __ghdl_ptr
-    'unchecked_address (ARCH_INSTANCE.all.P3));
-end;
-