OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/77420 (gfortran and equivalence produces internal compiler error)

Browse Source 
2016-09-13  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77420
	* module.c (load_equiv):  Revert revision 240063.

2016-09-13  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77420
	* gfortran.dg/pr77420.f90: Revert revision 240063 by removing test.

From-SVN: r240118
This commit is contained in:
Steven G. Kargl 2016-09-13 17:00:29 +00:00
parent 9fd2074dc9
commit 072eee8f22
4 changed files with 6 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2016-09-13 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77420
* module.c (load_equiv): Revert revision 240063.
2016-09-10 Paul Thomas <pault@gcc.gnu.org>
Steven G. Kargl <kargl@gcc.gnu.org>

2
gcc/fortran/module.c
View File

@ -4647,7 +4647,7 @@ load_equiv (void)
}
/* Check for duplicate equivalences being loaded from different modules */
duplicate = gfc_current_ns->equiv ? false:true;
duplicate = false;
for (equiv = gfc_current_ns->equiv; equiv; equiv = equiv->next)
{
if (equiv->module && head->module

12
gcc/testsuite/ChangeLog
View File

@ -84,13 +84,6 @@
PR rtl-optimization/77289
* gcc.target/powerpc/pr77289.c: New test.
2016-09-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77420
* module.c (load_equiv): If the current namespace has a list of
equivalence statements, initialize duplicate to false and then
look for duplicates; otherwise, initialize it to true.
2016-09-09 Martin Sebor <msebor@redhat.com>
PR c/77520
@ -98,11 +91,6 @@
* gcc.dg/pr77520.c: New test.
* gcc.dg/pr77521.c: New test.
2016-09-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77420
* gfortran.dg/pr77420.f90: New test.
2016-09-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77506

18
gcc/testsuite/gfortran.dg/pr77420.f90
View File

@ -1,18 +0,0 @@
! { dg-do compile }
MODULE test_equivalence
REAL, PRIVATE, DIMENSION(100) :: array1
REAL, PRIVATE, DIMENSION(100) :: array2
EQUIVALENCE(array1(1),array2(1))
END MODULE test_equivalence
MODULE mymodule
USE test_equivalence
! declare a local variable with the same name as the (private!)
! variable in module test_equivalence:
REAL, DIMENSION(:), ALLOCATABLE :: array1
END MODULE mymodule
PROGRAM test
USE mymodule
END PROGRAM test