Browse Source

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

git-svn-id: trunk@11467 -
Jonas Maebe 17 years ago
parent
commit
2f2d4714d0
2 changed files with 12 additions and 0 deletions
  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.
+
+