tests/webtbf/tw25788.pp


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

{ %norun }
{ %opt=-Cg }
{ %fail }
{ %target=linux,win64,freebsd,darwin }

unit tw25788;

interface

//const a=1; // uncomment this to make it fail as expected

{$ifdef FPC_PIC}
{$error Don't want this to compile with PIC}
{$endif}

implementation
end.