+ forgotten test for r17808

git-svn-id: trunk@17811 -

.gitattributes

@@ -10369,6 +10369,7 @@ tests/test/trox1.pp svneol=native#text/plain
 tests/test/trox2.pp svneol=native#text/plain
 tests/test/trox3.pp svneol=native#text/pascal
 tests/test/trox4.pp svneol=native#text/pascal
+tests/test/trox5.pp svneol=native#text/pascal
 tests/test/trstr1.pp svneol=native#text/plain
 tests/test/trstr2.pp svneol=native#text/plain
 tests/test/trstr3.pp svneol=native#text/plain

tests/test/trox5.pp

@@ -0,0 +1,13 @@
+{$r-}
+var
+  l : longint;
+begin
+  l:=$ff;
+  l:=RorByte(l);
+  if l<>$ff then
+    halt(1);
+  l:=RolByte(l);
+  if l<>$ff then
+    halt(1);
+  writeln('ok');
+end.