+ round returning int64 problem

2025-09-07 12:10:45 +02:00 · 2003-02-02 14:37:45 +00:00 · 2003-02-02 14:37:45 +00:00 · 4841a83d44
commit 4841a83d44
parent 30e5f6934e
1 changed files with 16 additions and 0 deletions
--- a/tests/tbs/tb0450.pp
+++ 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
+
+}