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

re PR tree-optimization/43505 (type mismatch between an SSA_NAME and its symbol with -O3)

Browse Source 
PR tree-optimization/43505
	* cgraph.c (cgraph_clone_node): When clonning a clone, replacement
	map should not be copied.
	* gfortran.dg/pr43505.f90: New testcase.

From-SVN: r157786
This commit is contained in:
Jan Hubicka 2010-03-28 23:46:50 +02:00 committed by Jan Hubicka
parent f48aa01a62
commit 88cc1e04bd
4 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ChangeLog
View File

@ -1,3 +1,9 @@
2010-03-28 Jan Hubicka <jh@suse.cz>
PR tree-optimization/43505
* cgraph.c (cgraph_clone_node): When clonning a clone, replacement
map should not be copied.
2010-03-27 John David Anglin <dave.anglin@nrc-cnrc.gc.ca> 2010-03-27 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
PR middle-end/41674 PR middle-end/41674

1
gcc/cgraph.c
View File

@ -1891,6 +1891,7 @@ cgraph_clone_node (struct cgraph_node *n, gcov_type count, int freq,
new_node->rtl = n->rtl; new_node->rtl = n->rtl;
new_node->count = count; new_node->count = count;
new_node->clone = n->clone; new_node->clone = n->clone;
new_node->clone.tree_map = 0;
if (n->count) if (n->count)
{ {
if (new_node->count > n->count) if (new_node->count > n->count)

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-03-28 Jan Hubicka <jh@suse.cz>
PR tree-optimization/43505
* gfortran.dg/pr43505.f90: New testcase.
2010-03-27 Uros Bizjak <ubizjak@gmail.com> 2010-03-27 Uros Bizjak <ubizjak@gmail.com>
PR tree-optimization/43528 PR tree-optimization/43528

43
gcc/testsuite/gfortran.dg/pr43505.f90 Normal file
View File

@ -0,0 +1,43 @@
MODULE MAIN1
INTEGER , PARAMETER :: MXGLVL = 87
CHARACTER(8) :: SRCTYP
REAL :: GRIDWS(MXGLVL)
REAL :: ZI, HS
END MODULE MAIN1
PROGRAM TEST
USE MAIN1
IF (HS >= ZI) THEN
ELSEIF ( SRCTYP == 'AREA' &
.OR. SRCTYP == 'AREAPOLY' &
.OR. SRCTYP == 'AREACIRC' &
.OR. SRCTYP == 'OPENPIT' ) THEN
CALL ANYAVG (MXGLVL, GRIDWS)
CALL ANYAVG (MXGLVL, GRIDWS)
ELSE
IF ( HS > 0.0 ) THEN
CALL ANYAVG (MXGLVL, GRIDWS)
CALL ANYAVG (MXGLVL, GRIDWS)
CALL ANYAVG (MXGLVL, GRIDWS)
ENDIF
ENDIF
IF (HS.LT.ZI) THEN
ZI = HS
ENDIF
contains
SUBROUTINE ANYAVG(NLVLS,HTS)
INTEGER NLVLS
REAL HTS(NLVLS)
IF (5.LT.NLVLS) THEN
CALL GINTRP (HTS(5),HTS(5+1))
ENDIF
CALL GINTRP (HTS(5-1), HTS(5))
END SUBROUTINE ANYAVG
subroutine gintrp (x1, x2)
print *, x1, x2
end subroutine
END PROGRAM TEST