Add tests for oread (some are old)

1 files changed, 21 insertions, 0 deletions

diff --git a/src/ortho/oread/tests/run_declare2.on b/src/ortho/oread/tests/run_declare2.on
new file mode 100644
index 000000000..ae38b660d
--- /dev/null
+++ b/src/ortho/oread/tests/run_declare2.on
@@ -0,0 +1,21 @@
+type __ghdl_int is unsigned (32);
+
+public function main (a : __ghdl_int) return __ghdl_int
+declare
+  local var b : __ghdl_int;
+  local var z : __ghdl_int;
+begin
+  b := a;
+  declare
+    local var c : __ghdl_int;
+  begin
+    c := b;
+  end;
+  declare
+    local var d : __ghdl_int;
+  begin
+    d := b;
+    z := d;
+  end;
+  return z +# 1;
+end;