mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-05 06:13:20 +01:00
tests: add hint directives test
git-svn-id: trunk@15760 -
This commit is contained in:
parent
bbdd8e52f1
commit
38da67e08b
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -9201,6 +9201,7 @@ tests/test/tgoto.pp svneol=native#text/plain
|
||||
tests/test/theap.pp svneol=native#text/plain
|
||||
tests/test/theapthread.pp svneol=native#text/plain
|
||||
tests/test/thintdir.pp svneol=native#text/plain
|
||||
tests/test/thintdir1.pp svneol=native#text/pascal
|
||||
tests/test/timplements1.pp svneol=native#text/plain
|
||||
tests/test/timplements2.pp svneol=native#text/plain
|
||||
tests/test/timplements3.pp svneol=native#text/plain
|
||||
|
||||
16
tests/test/thintdir1.pp
Normal file
16
tests/test/thintdir1.pp
Normal file
@ -0,0 +1,16 @@
|
||||
program thintdir1;
|
||||
|
||||
// test the possibility to use the hint modifiers as regular identifiers
|
||||
|
||||
{$mode delphi}
|
||||
|
||||
type
|
||||
deprecated = integer;
|
||||
const
|
||||
unimplemented = 1;
|
||||
platform = 2;
|
||||
var
|
||||
experimental: deprecated = unimplemented;
|
||||
|
||||
begin
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user