src/ortho/oread/tests: fix 2 tests.

2 files changed, 27 insertions, 27 deletions

diff --git a/src/ortho/oread/tests/local2.on b/src/ortho/oread/tests/local2.on
index e06cdb8ea..5f8ece31e 100644
--- a/src/ortho/oread/tests/local2.on
+++ b/src/ortho/oread/tests/local2.on
@@ -1,15 +1,15 @@
-type __ghdl_integer is signed (32);
+TYPE __ghdl_integer IS SIGNED (32);
 
-public function test_arg (v : __ghdl_integer) return __ghdl_integer
-declare
-  local var w : __ghdl_integer;
-begin
+PUBLIC FUNCTION test_arg (v : __ghdl_integer) RETURN __ghdl_integer
+DECLARE
+  LOCAL VAR w : __ghdl_integer;
+BEGIN
   w := v;
-  declare
-    local var z : __ghdl_integer;
-  begin
+  DECLARE
+    LOCAL VAR z : __ghdl_integer;
+  BEGIN
     z := v +# w;
     w := z;
-  end;
-  return w;
-end;
+  END;
+  RETURN w;
+END;
diff --git a/src/ortho/oread/tests/run_declare2.on b/src/ortho/oread/tests/run_declare2.on
index ae38b660d..bd321fc53 100644
--- a/src/ortho/oread/tests/run_declare2.on
+++ b/src/ortho/oread/tests/run_declare2.on
@@ -1,21 +1,21 @@
-type __ghdl_int is unsigned (32);
+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
+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
+  DECLARE
+    LOCAL VAR c : __ghdl_int;
+  BEGIN
     c := b;
-  end;
-  declare
-    local var d : __ghdl_int;
-  begin
+  END;
+  DECLARE
+    LOCAL VAR d : __ghdl_int;
+  BEGIN
     d := b;
     z := d;
-  end;
-  return z +# 1;
-end;
+  END;
+  RETURN z +# 1;
+END;