fpcsrc/tests/webtbs/tw15207.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

program testinline;

{$mode objfpc}{$H+}

type
  enumtest = (e1, e2);

function Test: Boolean; inline;
var
  e: enumtest;
  s: String;
begin
  e := e1;
  WriteStr(s, e);
  result:=s='e1';
end;

procedure TestProc;
begin
  if not Test then
    halt(1);
end;

begin
  TestProc;
end.