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/asgn_acc.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/asgn_acc.on')
| -rw-r--r-- | src/ortho/oread/tests/asgn_acc.on | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/ortho/oread/tests/asgn_acc.on b/src/ortho/oread/tests/asgn_acc.on new file mode 100644 index 000000000..01559c081 --- /dev/null +++ b/src/ortho/oread/tests/asgn_acc.on @@ -0,0 +1,13 @@ +TYPE int32 IS SIGNED (32); +TYPE int32_acc IS ACCESS int32; +PRIVATE CONSTANT zero_i32 : int32 := 0; + +PRIVATE PROCEDURE call_arg_addr () +DECLARE +BEGIN +DECLARE + LOCAL VAR ap : int32_acc; +BEGIN + ap := int32_acc'address (zero_i32); +END; +END;
\ No newline at end of file |