no message

tests/tbs/tb0460.pp

@@ -0,0 +1,6 @@
+const
+  MinCurrency : Currency = -922337203685477.5807;
+  MaxCurrency : Currency = 922337203685477.5807;
+
+begin
+end.