diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2016-08-23 19:33:46 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2016-08-23 19:33:46 +0000 |
| commit | cfe37db47a363d243f4e2e0a7d6b9b1bf429934b (patch) | |
| tree | 80862b35f5b1ead92f59deb4d9d9c57f7a4dacc1 /gcc/fortran/decl.c | |
| parent | c0ccddb46c11be096ab3b843b5b48104a11a7485 (diff) | |
| download | gcc-cfe37db47a363d243f4e2e0a7d6b9b1bf429934b.zip gcc-cfe37db47a363d243f4e2e0a7d6b9b1bf429934b.tar.gz gcc-cfe37db47a363d243f4e2e0a7d6b9b1bf429934b.tar.bz2 | |
decl.c (gfc_match_structure_decl): Make gfc_structure_id static.
2016-08-23 Fritz Reese <fritzoreese@gmail.com>
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
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |