diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-04-09 11:13:53 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-04-09 09:13:53 +0000 |
| commit | 835d64ab880ab3932c0e67c87ff859472771456d (patch) | |
| tree | 7c81ce1f5983e5030f33650652ce583157ae02e4 /gcc | |
| parent | 17153653c06089378ee66f0da60fc0b0199c18f0 (diff) | |
| download | gcc-835d64ab880ab3932c0e67c87ff859472771456d.zip gcc-835d64ab880ab3932c0e67c87ff859472771456d.tar.gz gcc-835d64ab880ab3932c0e67c87ff859472771456d.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 10 |
2 files changed, 10 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4c331d9..95e2cee 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-04-09 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + * match.c (match_arithmetic_if): Remove gfc_ prefix and correct + comment according to GNU coding style. + 2005-04-08 Diego Novillo <dnovillo@redhat.com> * match.c (gfc_match_arithmetic_if): Declare static. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 3a0bac5..0a173b8 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) |