diff options
Diffstat (limited to 'src/ortho/oread/tests/test_incomp2.on')
-rw-r--r-- | src/ortho/oread/tests/test_incomp2.on | 17 |
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; |