PR c++/17413

[thirdparty/gcc.git] / gcc / f / implic.c

diff --git a/gcc/f/implic.c b/gcc/f/implic.c
index 7e0c61b1605e3fcbe602e06fc1a8e904e8d1d485..c7a28cbc42acc6e23bf459a1ce7bbf1a4dbe02a3 100644 (file)
--- a/gcc/f/implic.c
+++ b/gcc/f/implic.c
@@ -1,5 +1,5 @@
 /* implic.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -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;
 }
@@ -199,6 +199,7 @@ ffeimplic_establish_symbol (ffesymbol s)
 
   if (ffe_is_warn_implicit ())
     {
+      /* xgettext:no-c-format */
       ffebad_start_msg ("Implicit declaration of `%A' at %0",
                        FFEBAD_severityWARNING);
       ffebad_here (0, ffesymbol_where_line (s),
@@ -219,7 +220,7 @@ ffeimplic_establish_symbol (ffesymbol s)
    Allows for holes in the sequence of letters (i.e. EBCDIC).  */
 
 void
-ffeimplic_init_2 ()
+ffeimplic_init_2 (void)
 {
   ffeimplic_ imp;
   char c;
@@ -311,7 +312,7 @@ ffeimplic_init_2 ()
    Assigns null type information to all initial letters.  */
 
 void
-ffeimplic_none ()
+ffeimplic_none (void)
 {
   ffeimplic_ imp;
 
@@ -377,6 +378,6 @@ ffeimplic_peek_symbol_type (ffesymbol s, const char *name)
    Kills info object for each entry in table.  */
 
 void
-ffeimplic_terminate_2 ()
+ffeimplic_terminate_2 (void)
 {
 }