From cfe37db47a363d243f4e2e0a7d6b9b1bf429934b Mon Sep 17 00:00:00 2001 From: Fritz Reese Date: Tue, 23 Aug 2016 19:33:46 +0000 Subject: decl.c (gfc_match_structure_decl): Make gfc_structure_id static. 2016-08-23 Fritz Reese gcc/fortran/ * decl.c (gfc_match_structure_decl): Make gfc_structure_id static. gcc/testsuite/gfortran.dg/ * dec_structure_12.f90: New testcase. From-SVN: r239709 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/decl.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d3273a8..6dc44e6 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,9 @@ 2016-08-23 Fritz Reese + * decl.c (gfc_match_structure_decl): Make gfc_structure_id static. + +2016-08-23 Fritz Reese + * interface.c (compare_components): Fix typo in name check conditional. 2016-08-22 Steven G. Kargl diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index ce5ebb7..ce7254f 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -8473,7 +8473,7 @@ match gfc_match_structure_decl (void) { /* Counter used to give unique internal names to anonymous structures. */ - int gfc_structure_id = 0; + static unsigned int gfc_structure_id = 0; char name[GFC_MAX_SYMBOL_LEN + 1]; gfc_symbol *sym; match m; -- cgit v1.1