fpcsrc/tests/test/tforin11.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %FAIL}

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

program tforin11;

{$mode objfpc}{$H+}
{$apptype console}

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