From a26cd8501eab5e154a92823c183dba7e9b502f08 Mon Sep 17 00:00:00 2001 From: kargl Date: Fri, 16 Dec 2005 23:32:29 +0000 Subject: 2005-12-10 Steven G. Kargl PR fortran/25106 PR fortran/25055 * match.c (gfc_match_small_literal_int): Add cnt argument; (gfc_match_st_label,gfc_match_stopcode): Account for cnt argument. * match.h (gfc_match_small_literal_int): Update prototype. * decl.c (match_char_length,gfc_match_old_kind_spec): Account for cnt. * parse.c (next_free): Ditto. * primary.c (match_kind_param): Ditto. gfortran.dg/label_1.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108692 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/match.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/match.h') diff --git a/gcc/fortran/match.h b/gcc/fortran/match.h index a3c1d813c14..1c5115e0b45 100644 --- a/gcc/fortran/match.h +++ b/gcc/fortran/match.h @@ -40,7 +40,7 @@ extern gfc_st_label *gfc_statement_label; /* Generic match subroutines */ match gfc_match_space (void); match gfc_match_eos (void); -match gfc_match_small_literal_int (int *); +match gfc_match_small_literal_int (int *, int *); match gfc_match_st_label (gfc_st_label **); match gfc_match_label (void); match gfc_match_small_int (int *); -- cgit v1.2.1