diff options
Diffstat (limited to 'src/ortho/oread/tests/run_case2.on')
-rw-r--r-- | src/ortho/oread/tests/run_case2.on | 28 |
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; |