aboutsummaryrefslogtreecommitdiff
path: root/Testing/Semantic/t4-1.p
diff options
context:
space:
mode:
Diffstat (limited to 'Testing/Semantic/t4-1.p')
-rw-r--r--Testing/Semantic/t4-1.p8
1 files changed, 8 insertions, 0 deletions
diff --git a/Testing/Semantic/t4-1.p b/Testing/Semantic/t4-1.p
new file mode 100644
index 0000000..2f24e8c
--- /dev/null
+++ b/Testing/Semantic/t4-1.p
@@ -0,0 +1,8 @@
+(* ERROR: non-integer type for array index *)
+program main( input, output );
+ var a: array[3 .. 7] of real;
+ var x: real;
+begin
+ a[x] := 1.23
+end.
+