mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 18:47:54 +02:00
18 lines
252 B
ObjectPascal
18 lines
252 B
ObjectPascal
{ %norun }
|
|
{ %opt=-Cg }
|
|
{ %fail }
|
|
{ %target=linux,freebsd,darwin,haiku }
|
|
|
|
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.
|