diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/runnable/two_fields_same_type.elna | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/runnable/two_fields_same_type.elna b/testsuite/runnable/two_fields_same_type.elna new file mode 100644 index 0000000..b881dda --- /dev/null +++ b/testsuite/runnable/two_fields_same_type.elna @@ -0,0 +1,16 @@ +type + R = record + x, y: Int + end + +proc f(): Int +var + r: R := R(3, 2) + + return r.x + r.y +end + +begin + assert(f() = 5); + return 0 +end. |
