*** empty log message ***

tests/webtbs/tw1737.pp

@@ -0,0 +1,8 @@
+{ %version=1.1 }
+var
+   c: currency;
+begin
+   c:=234982814;
+   writeln(round(c * 100));
+end.
+