From 9c4833e90ec7f984d0a0efeaf6ea6879f2b74512 Mon Sep 17 00:00:00 2001
From: Brian Drummond <brian@shapes.demon.co.uk>
Date: Fri, 13 Dec 2013 15:22:06 +0000
Subject: Patch for https://gna.org/bugs/?18353

---
 translate/grt/grt-values.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/translate/grt/grt-values.adb b/translate/grt/grt-values.adb
index ca82e0cd8..336cf4e0a 100644
--- a/translate/grt/grt-values.adb
+++ b/translate/grt/grt-values.adb
@@ -231,8 +231,8 @@ package body Grt.Values is
                when others =>
                   Error_E ("'value: digit expected");
             end case;
-            if D > Base then
-               Error_E ("'value: digit greather than base");
+            if D >= Base then
+               Error_E ("'value: digit >= base");
             end if;
             Val := Val * Base + D;
             Pos := Pos + 1;
-- 
cgit v1.2.3