From c2df4f1379fa56623a681897fbd982971fe467c4 Mon Sep 17 00:00:00 2001
From: Chris M Moore <zmower@ntlworld.com>
Date: Sun, 20 Mar 2016 22:20:34 +0000
Subject: [PATCH] Ada: negative numbers in reader

---
 ada/reader.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ada/reader.adb b/ada/reader.adb
index d145250f..ac1199d7 100644
--- a/ada/reader.adb
+++ b/ada/reader.adb
@@ -192,7 +192,9 @@ package body Reader is
                Dots := 0;
                All_Digits := True;
                for K in I .. J loop
-                  if Element (Saved_Line, K) = '.' then
+                  if (K = I and K /= J) and then Element (Saved_Line, K) = '-' then
+                     null;
+                  elsif Element (Saved_Line, K) = '.' then
                      Dots := Dots + 1; 
                   elsif not (Element (Saved_Line, K) in '0' .. '9') then
                      All_Digits := False;