primary.c (check_digit): Call 'ISXDIGIT' instead of assuming ASCII-like character...

* primary.c (check_digit): Call 'ISXDIGIT' instead of assuming
ASCII-like character encoding.

From-SVN: r93713

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ba5ae01..ba8e5b8 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-15  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de
+
+       * primary.c (check_digit): Call 'ISXDIGIT' instead of assuming
+       ASCII-like character encoding.
+
 2005-01-14  Steven G. Kargl  <kargls@comcast.net>
 
        * resolve.c (compare_case): Cleanup.

diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c
index 32c6c36..da2b7c8 100644 (file)
--- a/gcc/fortran/primary.c
+++ b/gcc/fortran/primary.c
@@ -1,5 +1,6 @@
 /* Primary expression subroutines
-   Copyright (C) 2000, 2001, 2002, 2004 Free Software Foundation, Inc.
+   Copyright (C) 2000, 2001, 2002, 2004, 2005 Free Software Foundation,
+   Inc.
    Contributed by Andy Vaught
 
 This file is part of GCC.
@@ -114,7 +115,7 @@ check_digit (int c, int radix)
       break;
 
     case 16:
-      r = ('0' <= c && c <= '9') || ('a' <= c && c <= 'f');
+      r = ISXDIGIT (c);
       break;
 
     default: