diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/compilable/assign_record_to_base.elna | 16 | ||||
| -rw-r--r-- | testsuite/compilable/pointer_cast.elna | 8 |
2 files changed, 24 insertions, 0 deletions
diff --git a/testsuite/compilable/assign_record_to_base.elna b/testsuite/compilable/assign_record_to_base.elna new file mode 100644 index 0000000..7583c70 --- /dev/null +++ b/testsuite/compilable/assign_record_to_base.elna @@ -0,0 +1,16 @@ +type + B = record + x: Int + end + R = record(B) + y: Int + end + +var + x: ^B := nil + y: ^R := nil + +begin + x := y; + return 0 +end. diff --git a/testsuite/compilable/pointer_cast.elna b/testsuite/compilable/pointer_cast.elna new file mode 100644 index 0000000..d10fb23 --- /dev/null +++ b/testsuite/compilable/pointer_cast.elna @@ -0,0 +1,8 @@ +var + c: ^Char := nil + p: Pointer := nil + +begin + p := c; + c := p +end. |