Browse Source

tests: add hint directives test

git-svn-id: trunk@15760 -
paul 15 năm trước cách đây
mục cha
commit
38da67e08b
2 tập tin đã thay đổi với 17 bổ sung0 xóa
  1. 1 0
      .gitattributes
  2. 16 0
      tests/test/thintdir1.pp

+ 1 - 0
.gitattributes

@@ -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 - 0
tests/test/thintdir1.pp

@@ -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.