aboutsummaryrefslogtreecommitdiff
path: root/testsuite/fail_compilation/case_non_constant.elna
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/fail_compilation/case_non_constant.elna')
-rw-r--r--testsuite/fail_compilation/case_non_constant.elna4
1 files changed, 1 insertions, 3 deletions
diff --git a/testsuite/fail_compilation/case_non_constant.elna b/testsuite/fail_compilation/case_non_constant.elna
index 0345653..9f7ba9a 100644
--- a/testsuite/fail_compilation/case_non_constant.elna
+++ b/testsuite/fail_compilation/case_non_constant.elna
@@ -1,3 +1,4 @@
+program()
type
R = record
a: Int;
@@ -8,12 +9,9 @@ var
r: R
x: R
-program()
begin
x := r;
case x of
r: (* @Error Case label must be a constant expression *)
end
-return 0u8
-
end.