aboutsummaryrefslogtreecommitdiffstats
path: root/src/ortho/oread/tests/test_incomp2.on
diff options
context:
space:
mode:
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;