Kaynağa Gözat

* test from mantis #35897, already fixed

git-svn-id: trunk@42575 -
Jonas Maebe 6 yıl önce
ebeveyn
işleme
6b9f2114f1
2 değiştirilmiş dosya ile 14 ekleme ve 0 silme
  1. 1 0
      .gitattributes
  2. 13 0
      tests/webtbs/tw35897.pp

+ 1 - 0
.gitattributes

@@ -17780,6 +17780,7 @@ tests/webtbs/tw35878.pp svneol=native#text/plain
 tests/webtbs/tw35878a.pp svneol=native#text/plain
 tests/webtbs/tw35886.pp svneol=native#text/plain
 tests/webtbs/tw3589.pp svneol=native#text/plain
+tests/webtbs/tw35897.pp svneol=native#text/plain
 tests/webtbs/tw35918.pp svneol=native#text/pascal
 tests/webtbs/tw3594.pp svneol=native#text/plain
 tests/webtbs/tw3595.pp svneol=native#text/plain

+ 13 - 0
tests/webtbs/tw35897.pp

@@ -0,0 +1,13 @@
+{ %opt=-Sew }
+
+{$mode iso}
+program test(input, output);
+
+procedure doit(n : integer);
+begin
+  writeln(n mod 10);
+end;
+
+begin
+   doit(23);
+end.