* update_web_docs (PREPROCESS): Rename to WWWPREPROCESS.

[pf3gnuchains/gcc-fork.git] / gcc / f / intrin.c

diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c
index fa31621..0bc6d0e 100644 (file)
--- a/gcc/f/intrin.c
+++ b/gcc/f/intrin.c
@@ -1,5 +1,5 @@
 /* intrin.c -- Recognize references to intrinsics
-   Copyright (C) 1995-1998 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -1581,10 +1581,6 @@ ffeintrin_init_0 ()
       p3 = ffeintrin_names_[i].name_ic;
       for (; *p1 != '\0' && *p2 != '\0' && *p3 != '\0'; ++p1, ++p2, ++p3)
        {
-         if (! IN_CTYPE_DOMAIN (*p1)
-             || ! IN_CTYPE_DOMAIN (*p2)
-             || ! IN_CTYPE_DOMAIN (*p3))
-           break;
          if ((ISDIGIT (*p1) || (*p1 == '_')) && (*p1 == *p2) && (*p1 == *p3))
            continue;
          if (! ISUPPER ((unsigned char)*p1) || ! ISLOWER ((unsigned char)*p2)