Testing/Semantic/t2-1.p


1
2
3
4
5
6
7
8
9
10

(* expression must return a typed-value *)
program main(input,output);
 var a,b,c: integer;
 var x,y,z: real;
begin
 a := b + c;
 x := y + z;
 a := x
end.