diff options
| author | Eugen Wissner <belka@caraus.de> | 2026-07-17 16:16:23 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2026-07-17 16:16:23 +0200 |
| commit | e676e74efbbbf62887b9442326399eebccc4d108 (patch) | |
| tree | 04c51d56a20dd17bb5091895292079504c1dc13e /testsuite/compilable | |
| parent | db528ae1fbec5219fa34e1b780590eef89e9618c (diff) | |
| download | elna-e676e74efbbbf62887b9442326399eebccc4d108.tar.gz | |
Handle base type constness
Diffstat (limited to 'testsuite/compilable')
| -rw-r--r-- | testsuite/compilable/record_const_base.elna | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/compilable/record_const_base.elna b/testsuite/compilable/record_const_base.elna new file mode 100644 index 0000000..f24d27b --- /dev/null +++ b/testsuite/compilable/record_const_base.elna @@ -0,0 +1,18 @@ +type + B = record + x: Int + end + CB = const B + D = record(CB) + y: Int + end + +proc f() +var + d: D +begin + d.x := 1; + d.y := 2 +return + +end. |