aboutsummaryrefslogtreecommitdiffstats
path: root/src/ortho/oread/tests/test_incomp2.on
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-07-25 09:01:06 +0200
committerTristan Gingold <tgingold@free.fr>2020-07-25 11:28:50 +0200
commit5716ac056b0bbcec8bc6059843a21a3eb36c653d (patch)
tree7f7047811c611d53efc8c71301be0e82e16afa82 /src/ortho/oread/tests/test_incomp2.on
parent071611db8906f0577e74886d9f8304dc982174c2 (diff)
downloadghdl-5716ac056b0bbcec8bc6059843a21a3eb36c653d.tar.gz
ghdl-5716ac056b0bbcec8bc6059843a21a3eb36c653d.tar.bz2
ghdl-5716ac056b0bbcec8bc6059843a21a3eb36c653d.zip
ortho/oread/tests: adjust one more test.
Diffstat (limited to 'src/ortho/oread/tests/test_incomp2.on')
-rw-r--r--src/ortho/oread/tests/test_incomp2.on17
1 files changed, 17 insertions, 0 deletions
diff --git a/src/ortho/oread/tests/test_incomp2.on b/src/ortho/oread/tests/test_incomp2.on
new file mode 100644
index 000000000..f951f37a0
--- /dev/null
+++ b/src/ortho/oread/tests/test_incomp2.on
@@ -0,0 +1,17 @@
+TYPE int IS SIGNED (32);
+TYPE bool IS BOOLEAN { false, true };
+
+TYPE rec IS RECORD;
+
+TYPE incomp_ptr IS ACCESS rec;
+
+TYPE rec IS RECORD
+ nxt : incomp_ptr;
+ val : int;
+END RECORD;
+
+PUBLIC FUNCTION eq (l : incomp_ptr; r : incomp_ptr) RETURN bool
+DECLARE
+BEGIN
+ RETURN bool'(l.ALL.val = r.ALL.val);
+END;