diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-08 05:31:45 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-08 05:31:45 +0100 |
| commit | e7f223da0ad86e2e00074302256aa43b43a83e9c (patch) | |
| tree | 1c3eee24d7413e0b962f21d975a771ea4d46ce9b /src/ortho/oread/tests/local3.on | |
| parent | 7b556be5180c421a13e93e24393f3ab77df8f864 (diff) | |
| download | ghdl-e7f223da0ad86e2e00074302256aa43b43a83e9c.tar.gz ghdl-e7f223da0ad86e2e00074302256aa43b43a83e9c.tar.bz2 ghdl-e7f223da0ad86e2e00074302256aa43b43a83e9c.zip | |
Add tests for oread (some are old)
Diffstat (limited to 'src/ortho/oread/tests/local3.on')
| -rw-r--r-- | src/ortho/oread/tests/local3.on | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/ortho/oread/tests/local3.on b/src/ortho/oread/tests/local3.on new file mode 100644 index 000000000..034bd1846 --- /dev/null +++ b/src/ortho/oread/tests/local3.on @@ -0,0 +1,33 @@ +type __ghdl_integer is signed (32); + +public function test_arg (v : __ghdl_integer) return __ghdl_integer +declare + local var w : __ghdl_integer; +begin + w := v; + declare + local var b1 : __ghdl_integer; + begin + b1 := w; + w := b1; + declare + local var b2 : __ghdl_integer; + begin + b2 := w; + w := b2; + end; + declare + local var b3 : __ghdl_integer; + begin + b3 := w; + w := b3; + end; + end; + declare + local var b4 : __ghdl_integer; + begin + b4 := w; + w := b4; + end; + return w; +end; |