1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/f/implic.c b/gcc/f/implic.c
index 7e0c61b1605..625742fbbca 100644
--- a/gcc/f/implic.c
+++ b/gcc/f/implic.c
@@ -92,7 +92,7 @@ static ffeimplic_
 ffeimplic_lookup_ (unsigned char c)
 {
   /* NOTE: This is definitely ASCII-specific!!  */
-  if (ISALPHA (c) || (c == '_'))
+  if (ISIDST (c))
     return &ffeimplic_table_[c - 'A'];
   return NULL;
 }