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/struct7.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/struct7.on')
-rw-r--r-- | src/ortho/oread/tests/struct7.on | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/ortho/oread/tests/struct7.on b/src/ortho/oread/tests/struct7.on new file mode 100644 index 000000000..9654bc755 --- /dev/null +++ b/src/ortho/oread/tests/struct7.on @@ -0,0 +1,14 @@ +TYPE float IS FLOAT; + +TYPE __ghdl_index_type IS UNSIGNED (32); + +TYPE __ghdl_char IS UNSIGNED (8); +TYPE string IS ARRAY [__ghdl_index_type] OF __ghdl_char; +TYPE str7 IS SUBARRAY string[7]; + +TYPE struct7 IS RECORD + f : float; + s : str7; +END RECORD; + +PUBLIC VAR var1 : struct7; |