From 8004c68a42cdd0cfa7e90dc3163ae2baf6c514bb Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 23 Mar 2004 16:51:35 +0000
Subject: [PATCH]   * constant ordinal type

---
 tests/tbs/tb0473.pp | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 tests/tbs/tb0473.pp

diff --git a/tests/tbs/tb0473.pp b/tests/tbs/tb0473.pp
new file mode 100644
index 0000000000..d2df50aa15
--- /dev/null
+++ b/tests/tbs/tb0473.pp
@@ -0,0 +1,11 @@
+const
+  w = $5000;
+begin
+  writeln(hi(w));
+  if hi(w)<>$50 then
+    begin
+      writeln('Error!');
+      halt(1);
+    end;  
+end.
+