fpcsrc/tests/webtbs/tw7425.pp


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

procedure a(r: double); overload;
begin
end;

procedure a(r: real); overload;
begin
end;

{$ifdef FPC_HAS_TYPE_EXTENDED}
procedure a(r: extended); overload;
begin
end;
{$endif}

begin
  writeln(sizeof(real));
end.