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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 2 |
2 files changed, 5 insertions, 1 deletions
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 <fritzoreese@gmail.com> + * decl.c (gfc_match_structure_decl): Make gfc_structure_id static. + +2016-08-23 Fritz Reese <fritzoreese@gmail.com> + * interface.c (compare_components): Fix typo in name check conditional. 2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org> 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; |