* match.c (gfc_match_arithmetic_if): Declare static.

From-SVN: r97846

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3169f33d0fdff59b940e3166bfde393dace68850..4c331d9ff08dc1f15468f4bac409e8d98ce4964c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2005-04-08  Diego Novillo  <dnovillo@redhat.com>
+
+       * match.c (gfc_match_arithmetic_if): Declare static.
+
 2005-04-08  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR fortran/17229

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index f2b531165c7a24ab9f062692a4f110c723619107..3a0bac5cccd43de0b1b2537ef07d4b9bf200c75a 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -903,7 +903,7 @@ cleanup:
  * when just after having encountered a simple IF statement. This code
  * is really duplicate with parts of the gfc_match_if code, but this is
  * *much* easier.  */
-match
+static match
 gfc_match_arithmetic_if (void)
 {
   gfc_st_label *l1, *l2, *l3;