diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-27 18:03:04 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-27 18:03:04 +0000 |
commit | 60fb613ebff913b5c8413d60410446c6278b1309 (patch) | |
tree | f038bb37f04137d85b5288145c1c0f93c4e87fcd /tests/tbf | |
parent | e9458384423c7fd82ed5dc4ee6f7c9d9f979003c (diff) | |
download | fpc-60fb613ebff913b5c8413d60410446c6278b1309.tar.gz |
+ new test that should fail to compile, but doesn't yet
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17034 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/tbf')
-rw-r--r-- | tests/tbf/tb0220.pp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/tbf/tb0220.pp b/tests/tbf/tb0220.pp new file mode 100644 index 0000000000..72b9a22c91 --- /dev/null +++ b/tests/tbf/tb0220.pp @@ -0,0 +1,8 @@ +{ %fail } + +type + tset = set of byte; +begin + if 2 in tset then + writeln('should not compile') +end. |