Browse Source

+ added test

git-svn-id: trunk@11463 -
Jonas Maebe 17 years ago
parent
commit
b367162fcb
2 changed files with 14 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 13 0
      tests/webtbs/tw11619.pp

+ 1 - 0
.gitattributes

@@ -8402,6 +8402,7 @@ tests/webtbs/tw1152.pp svneol=native#text/plain
 tests/webtbs/tw11543.pp svneol=native#text/plain
 tests/webtbs/tw1157.pp svneol=native#text/plain
 tests/webtbs/tw1157b.pp svneol=native#text/plain
+tests/webtbs/tw11619.pp svneol=native#text/plain
 tests/webtbs/tw1181.pp svneol=native#text/plain
 tests/webtbs/tw1203.pp svneol=native#text/plain
 tests/webtbs/tw1204.pp svneol=native#text/plain

+ 13 - 0
tests/webtbs/tw11619.pp

@@ -0,0 +1,13 @@
+{ %norun }
+
+program TEST;
+{$EXTENDEDSYNTAX OFF}
+USES
+  DOS;
+VAR
+  IO: WORD; { or LONGINT if wanted }
+BEGIN
+  IO:=IORESULT;
+END.
+
+