fpcsrc/tests/test/terecs13.pp


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

{ %FAIL }
{ %NORUN }
program terecs13;

{$ifdef fpc}
  {$mode delphi}
{$endif}

var
  R: record
    private type
      TTestRange = 0..42;
  end;

begin
end.