+ added

tests/webtbs/tw2296.pp

@@ -0,0 +1,25 @@
+uses Dos;
+
+const MAX_VAL = 128;
+var
+   r : real;
+   f : file of byte;
+   b1, b2: byte;
+begin
+   assign(f,'bug2296.dat');
+   rewrite(f);
+   r := 12.2;
+   write(f,Byte(round(sin(r)*(MAX_VAL-1)+MAX_VAL)));
+   b1 := Byte(round(sin(r)*(MAX_VAL-1)+MAX_VAL));
+   close(f);
+   reset(f);
+   read(f,b2);
+   if b1 <> b2 then
+     begin
+       writeln('b1: ',b1,' <> b2: ',b2);
+       halt(1);
+     end;
+   close(f);
+   erase(f);
+end.
+