From 4841a83d44b945a4158339c7f60e5e66cfa993fc Mon Sep 17 00:00:00 2001 From: carl Date: Sun, 2 Feb 2003 14:37:45 +0000 Subject: [PATCH] + round returning int64 problem --- tests/tbs/tb0450.pp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 tests/tbs/tb0450.pp diff --git a/tests/tbs/tb0450.pp b/tests/tbs/tb0450.pp new file mode 100644 index 0000000000..ca8832d698 --- /dev/null +++ b/tests/tbs/tb0450.pp @@ -0,0 +1,16 @@ + +var + i: single; +Begin + case round(i) of + 0: WriteLn; + 1: WriteLn; + end; +end. + +{ + $Log$ + Revision 1.1 2003-02-02 14:37:45 carl + + round returning int64 problem + +} \ No newline at end of file