aboutsummaryrefslogtreecommitdiffstats
path: root/src/ortho/oread/tests/run_case2.on
diff options
context:
space:
mode:
Diffstat (limited to 'src/ortho/oread/tests/run_case2.on')
-rw-r--r--src/ortho/oread/tests/run_case2.on28
1 files changed, 14 insertions, 14 deletions
diff --git a/src/ortho/oread/tests/run_case2.on b/src/ortho/oread/tests/run_case2.on
index 6707f4f96..5caa705cb 100644
--- a/src/ortho/oread/tests/run_case2.on
+++ b/src/ortho/oread/tests/run_case2.on
@@ -1,15 +1,15 @@
-type __ghdl_index_type is unsigned (32);
-type __ghdl_bool_type is boolean {false, true};
+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;
+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;