From 835d64ab880ab3932c0e67c87ff859472771456d Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sat, 9 Apr 2005 11:13:53 +0200 Subject: [PATCH] match.c (match_arithmetic_if): Remove gfc_ prefix and correct comment according to GNU coding style. * match.c (match_arithmetic_if): Remove gfc_ prefix and correct comment according to GNU coding style. From-SVN: r97890 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/match.c | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4c331d9ff08d..95e2cee227ab 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-04-09 Francois-Xavier Coudert + + * match.c (match_arithmetic_if): Remove gfc_ prefix and correct + comment according to GNU coding style. + 2005-04-08 Diego Novillo * match.c (gfc_match_arithmetic_if): Declare static. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 3a0bac5cccd4..0a173b86ea0d 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -900,11 +900,11 @@ cleanup: /* We try to match an easy arithmetic IF statement. This only happens - * 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. */ + 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. */ static match -gfc_match_arithmetic_if (void) +match_arithmetic_if (void) { gfc_st_label *l1, *l2, *l3; gfc_expr *expr; @@ -1069,7 +1069,7 @@ gfc_match_if (gfc_statement * if_type) match ("exit", gfc_match_exit, ST_EXIT) match ("forall", match_simple_forall, ST_FORALL) match ("go to", gfc_match_goto, ST_GOTO) - match ("if", gfc_match_arithmetic_if, ST_ARITHMETIC_IF) + match ("if", match_arithmetic_if, ST_ARITHMETIC_IF) match ("inquire", gfc_match_inquire, ST_INQUIRE) match ("nullify", gfc_match_nullify, ST_NULLIFY) match ("open", gfc_match_open, ST_OPEN) -- 2.47.2