diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-12-03 16:32:04 +0100 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-12-03 15:32:04 +0000 |
| commit | a34a91f0b73dad394cd0db44f5702406c09a06c6 (patch) | |
| tree | fed5540ea5770fb73224878dea9cced4affb486c /gcc/fortran/match.h | |
| parent | 1b2bb2edfa74093b2926ca0673e845edd7f5f8a5 (diff) | |
| download | gcc-a34a91f0b73dad394cd0db44f5702406c09a06c6.zip gcc-a34a91f0b73dad394cd0db44f5702406c09a06c6.tar.gz gcc-a34a91f0b73dad394cd0db44f5702406c09a06c6.tar.bz2 | |
re PR fortran/25106 ([4.0/4.1] statement label is zero)
PR fortran/25106
* parse.c (next_free): Use new prototype for gfc_match_st_label.
Correctly emit hard error if a label is zero.
* match.c (gfc_match_st_label): Never allow zero as a valid
label.
(gfc_match, gfc_match_do, gfc_match_goto): Use new prototype for
gfc_match_st_label.
* primary.c (): Use new prototype for gfc_match_st_label.
* io.c (): Likewise.
* match.h: Likewise.
From-SVN: r107999
Diffstat (limited to 'gcc/fortran/match.h')
| -rw-r--r-- | gcc/fortran/match.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/match.h b/gcc/fortran/match.h index a698102..a3c1d81 100644 --- a/gcc/fortran/match.h +++ b/gcc/fortran/match.h @@ -41,7 +41,7 @@ extern gfc_st_label *gfc_statement_label; match gfc_match_space (void); match gfc_match_eos (void); match gfc_match_small_literal_int (int *); -match gfc_match_st_label (gfc_st_label **, int); +match gfc_match_st_label (gfc_st_label **); match gfc_match_label (void); match gfc_match_small_int (int *); int gfc_match_strings (mstring *); |