diff --git a/ivtest/ivltests/real_array_multi_dim.v b/ivtest/ivltests/real_array_multi_dim.v
new file mode 100644
index 000000000..539c7728f
--- /dev/null
+++ b/ivtest/ivltests/real_array_multi_dim.v
@@ -0,0 +1,35 @@
+// Check that multi-dimensional real arrays are supported
+
+module test;
+
+  reg failed = 1'b0;
+
+  `define check(expr, val) \
+    if (expr != val) begin \
+      $display("FAILED: `%s`, expected %f, got %f", `"expr`", val, expr); \
+      failed = 1'b1; \
+    end
+
+  real r[3:0][1:0];
+  integer i;
+
+  initial begin
+    for (i = 0; i < 8; i = i + 1) begin
+      r[i/2][i%2] = i / 8.0 - 0.5;
+    end
+
+    `check(r[0][0], -0.5);
+    `check(r[0][1], -0.375);
+    `check(r[1][0], -0.25);
+    `check(r[1][1], -0.125);
+    `check(r[2][0], 0.0);
+    `check(r[2][1], 0.125);
+    `check(r[3][0], 0.25);
+    `check(r[3][1], 0.375);
+
+    if (!failed) begin
+      $display("PASSED");
+    end
+  end
+
+endmodule
diff --git a/ivtest/regress-vlg.list b/ivtest/regress-vlg.list
index 5f32b39d2..8083f8376 100644
--- a/ivtest/regress-vlg.list
+++ b/ivtest/regress-vlg.list
@@ -1461,6 +1461,7 @@ real7			normal			ivltests
 real9			normal			ivltests
 real10			normal			ivltests
 real11			normal			ivltests
+real_array_multi_dim	normal			ivltests
 real_assign_deassign	normal			ivltests
 real_concat_invalid2	CE			ivltests
 real_delay		normal,-gspecify	ivltests gold=real_delay.gold
diff --git a/ivtest/regress-vlog95.list b/ivtest/regress-vlog95.list
index ae5fef303..48fc76b7c 100644
--- a/ivtest/regress-vlog95.list
+++ b/ivtest/regress-vlog95.list
@@ -247,6 +247,7 @@ pr3054101h		CE			ivltests
 pr3592746		CE			ivltests
 real_array		CE			ivltests
 real_array_nb		CE,-pallowsigned=1	ivltests
+real_array_multi_dim	CE,-pallowsigned=1	ivltests
 scan-invalid		CE			ivltests
 sel_rval_bit_ob		CE			ivltests
 sel_rval_part_ob	CE			ivltests