Fix code generation crash with real signals

src/cgen.c

@@ -1366,7 +1366,8 @@ static void cgen_op_nets(int op, cgen_ctx_t *ctx)
 
 static LLVMValueRef cgen_pointer_to_arg_data(int op, int arg, cgen_ctx_t *ctx)
 {
-   if (vcode_reg_kind(vcode_get_arg(op, arg)) == VCODE_TYPE_INT) {
+   const vtype_kind_t kind = vcode_reg_kind(vcode_get_arg(op, arg));
+   if (kind == VCODE_TYPE_INT || kind == VCODE_TYPE_REAL) {
       // Need to get a pointer to the data
       LLVMValueRef value = cgen_get_arg(op, arg, ctx);
       LLVMTypeRef lltype = LLVMTypeOf(value);
@@ -1405,6 +1406,7 @@ static void cgen_size_list(size_list_array_t *list, vcode_type_t type)
 {
    switch (vtype_kind(type)) {
    case VCODE_TYPE_INT:
+   case VCODE_TYPE_REAL:
       cgen_append_size_list(list, type, 1);
       break;
    case VCODE_TYPE_CARRAY:

test/regress/gold/real3.txt

@@ -0,0 +1,2 @@
+0ms+0: Report Note: real: -523467
+0ms+1: Report Note: integer: -523467

test/regress/real3.vhd

@@ -0,0 +1,20 @@
+entity real3 is
+end real3;
+
+architecture Behavioral of real3 is
+
+  signal value_real : real := -523467.0;
+  signal value_integer : integer;
+
+begin
+
+  process
+  begin
+    report "real: " & real'image(value_real);
+    value_integer <= integer(value_real);
+    wait for 0 ns;
+    report "integer: " & integer'image(value_integer);
+    wait;
+  end process;
+
+end Behavioral;

test/regress/testlist.txt

@@ -304,3 +304,4 @@ issue229        normal
 issue217        normal
 issue234        normal,gold
 issue227        normal,gold
+real3           normal,gold