Add tests for oread (some are old)

1 files changed, 15 insertions, 0 deletions

diff --git a/src/ortho/oread/tests/run_case2.on b/src/ortho/oread/tests/run_case2.on
new file mode 100644
index 000000000..6707f4f96
--- /dev/null
+++ b/src/ortho/oread/tests/run_case2.on
@@ -0,0 +1,15 @@
+type __ghdl_index_type is unsigned (32);
+type __ghdl_bool_type is boolean {false, true};
+
+public function main (a : __ghdl_index_type) return __ghdl_index_type
+declare
+begin
+  case a is
+    when 1 =>
+      return 2;
+    when 3 ... 5 =>
+      return 1;
+    when default =>
+      return 0;
+  end case;
+end;