mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 21:22:46 +02:00
18 lines
246 B
ObjectPascal
18 lines
246 B
ObjectPascal
{ %norun }
|
|
{ %opt=-Cg }
|
|
{ %fail }
|
|
{ %target=linux,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.
|