fpcsrc/tests/test/tforin20.pp


1
2
3
4
5
6
7
8
9

{ %FAIL}
{$mode objfpc}
{$apptype console}
type T = (a1, b1=5);
var
  ch: T;
begin
  for ch in T do Writeln(ch);
end.