浏览代码

+ test to make sure that {$x-} works properly for inlined functions

git-svn-id: trunk@11467 -
Jonas Maebe 17 年之前
父节点
当前提交
2f2d4714d0
共有 2 个文件被更改,包括 12 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 11 0
      tests/webtbf/tw11619b.pp

+ 1 - 0
.gitattributes

@@ -7973,6 +7973,7 @@ tests/webtbf/tw11254a.pp svneol=native#text/plain
 tests/webtbf/tw11295a.pp svneol=native#text/plain
 tests/webtbf/tw11295b.pp svneol=native#text/plain
 tests/webtbf/tw1157a.pp svneol=native#text/plain
+tests/webtbf/tw11619b.pp svneol=native#text/plain
 tests/webtbf/tw11632.pp svneol=native#text/plain
 tests/webtbf/tw1238.pp svneol=native#text/plain
 tests/webtbf/tw1251a.pp svneol=native#text/plain

+ 11 - 0
tests/webtbf/tw11619b.pp

@@ -0,0 +1,11 @@
+{ %fail }
+
+program TEST;
+{$EXTENDEDSYNTAX OFF}
+USES
+  DOS;
+BEGIN
+  IORESULT;
+END.
+
+