Testing/Semantic/t5-3.p


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.