From 92e502512c90d7d38ba75839d8557c0e0146d208 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 2 Mar 2014 15:35:08 +0000 Subject: * set PIC defines earlier, resolve #25788 git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@26924 3ad0048d-3df7-0310-abae-a5850022a9f2 --- tests/webtbf/tw25788.pp | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 tests/webtbf/tw25788.pp (limited to 'tests') diff --git a/tests/webtbf/tw25788.pp b/tests/webtbf/tw25788.pp new file mode 100644 index 0000000000..7d9c9aa5ce --- /dev/null +++ b/tests/webtbf/tw25788.pp @@ -0,0 +1,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. -- cgit v1.2.1