Testing/Semantic/t3-4.p


1
2
3
4
5
6
7
8
9

(* ERROR: mismatched type for index variable in FOR loops *)
program main( input, output );
  var a: integer;
  var x: real;
begin
  for x := 1 to 5 do
    a := a + 1
end.