fpc/tests/test/tforin11.pp

{ %FAIL}

// test that wrong type using for the for-in loop fails

program tforin11;

{$mode objfpc}{$H+}

var
  s: String;
  b: byte;
begin
  for b in s do
    write(b);
end.