FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

decl.c (gfc_match_structure_decl): Make gfc_structure_id static.

Browse source 
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
This commit is contained in:
Fritz Reese 2016-08-23 19:33:46 +00:00 • committed by Fritz Reese
parent c0ccddb46c
commit cfe37db47a
4 changed files with 36 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,3 +1,7 @@
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.

2
gcc/fortran/decl.c
View file

@ -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;

4
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,7 @@
2016-08-23 Fritz Reese <fritzoreese@gmail.com>
* gfortran.dg/dec_structure_12.f90: New testcase.
2016-08-23 Dominik Vogt <vogt@linux.vnet.ibm.com>
* gcc.target/s390/insv-1.c: Fix test when running with -m31.

27
gcc/testsuite/gfortran.dg/dec_structure_12.f90 Normal file
View file

@ -0,0 +1,27 @@
! { dg-do "compile" }
! { dg-options "-fdec-structure" }
!
! Test a regression where multiple anonymous structures failed to
! receive unique internal names.
!
implicit none
structure /s/
structure record0 ! (2)
integer i
end structure
structure record1 ! regression: Type definition was already defined at (2)
real r
end structure
end structure
record /s/ var
var.record0.i = 0
var.record1.r = 0.0
end