Allow "1+23" even for F format, for compatibility.

diff --git a/src/ChangeLog b/src/ChangeLog
index f889b7234097dd4b0fdf321c69f1b1908680dfd0..6eee062a84efe6f4066bd256d03bdfa9d10b958f 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+Sun Jul 24 18:49:20 2005  Ben Pfaff  <blp@gnu.org>
+
+       * data-in.c: (parse_numeric) Allow "1+23" even for F format, for
+       compatibility.
+
 Sun Jul 24 18:47:37 2005  Ben Pfaff  <blp@gnu.org>
 
        * pfm-read.c: (read_version_data) Read and ignore author field.

diff --git a/src/data-in.c b/src/data-in.c
index 3a49fa23706e8537881c204ffaeb9f83b99204d7..945cafd734ae38dc2af3f991776a69a6a29723f3 100644 (file)
--- a/src/data-in.c
+++ b/src/data-in.c
@@ -212,9 +212,7 @@ parse_numeric (struct data_in *i)
       return false;
     }
   
-  if (have_char (i)
-      && (tolower (*i->s) == 'e' || tolower (*i->s) == 'd'
-         || (type == FMT_E && (*i->s == '+' || *i->s == '-'))))
+  if (have_char (i) && strchr ("eEdD-+", *i->s))
     {
       /* Get the exponent specified after the `e' or `E'.  */
       long exp;