aboutsummaryrefslogtreecommitdiff
path: root/Testing/Semantic/t5-3.p
diff options
context:
space:
mode:
authorTucker Evans <tuckerevans24@gmail.com>2019-09-29 21:30:48 -0400
committerTucker Evans <tuckerevans24@gmail.com>2019-09-29 21:35:19 -0400
commitd6b038578577f7c0f4eeb95e35e6a2113e6d9732 (patch)
tree68609b4f92b701a0d1363c4905d0929018d3923b /Testing/Semantic/t5-3.p
parent82dc3cf8d980b010a1cf2e3ac1c438c1412a21f8 (diff)
parent4f66397e285f7742bdf5bfd9f723e10104486ce2 (diff)
Merge branch 'master' of git.tuckerevans.com:/srv/git/private/pascal_compiler
Fix white space at end of lines in Testing files
Diffstat (limited to 'Testing/Semantic/t5-3.p')
-rw-r--r--Testing/Semantic/t5-3.p18
1 files changed, 18 insertions, 0 deletions
diff --git a/Testing/Semantic/t5-3.p b/Testing/Semantic/t5-3.p
new file mode 100644
index 0000000..6494ae0
--- /dev/null
+++ b/Testing/Semantic/t5-3.p
@@ -0,0 +1,18 @@
+(* ERROR: function passed wrong number/type of arguments *)
+program main( input, output );
+ var b: integer;
+ var y: real;
+ var a: array[1 .. 13] of integer;
+ var z: array[1 .. 13] of real;
+
+ function foo(a: integer; x: real): integer;
+ begin
+ foo := a
+ end;
+begin
+ b := foo(y,b) + foo(b,y,10)
+end.
+
+
+
+