1 files changed, 13 insertions, 0 deletions
diff --git a/Testing/Semantic/t6-2.p b/Testing/Semantic/t6-2.p
new file mode 100644
index 0000000..3eabfac
--- /dev/null
+++ b/Testing/Semantic/t6-2.p
@@ -0,0 +1,13 @@
+(* ERROR: procedure passed wrong number/type of arguments *)
+program main( input, output );
+  var b: integer;
+  var y: real;
+
+  procedure boo(a: integer; x: real);
+  begin
+  end;
+begin
+  boo(y,10);
+  boo(b,y,b)
+end.
+