re PR middle-end/62695 (internal compiler error: in get_constraint_for_component_ref, at tree-ssa-structalias.c:3189)
2014-09-02 Richard Biener <rguenther@suse.de> PR tree-optimization/62695 * tree-ssa-structalias.c (find_func_clobbers): Add missing vector truncate. * gfortran.dg/pr62695.f90: New testcase. From-SVN: r214810
This commit is contained in:
parent
c0e3b4d464
commit
3f734f66fb
@ -1,3 +1,9 @@
|
||||
2014-09-02 Richard Biener <rguenther@suse.de>
|
||||
|
||||
PR tree-optimization/62695
|
||||
* tree-ssa-structalias.c (find_func_clobbers): Add missing
|
||||
vector truncate.
|
||||
|
||||
2014-09-01 Oleg Endo <olegendo@gcc.gnu.org>
|
||||
|
||||
PR target/62312
|
||||
|
@ -1,3 +1,8 @@
|
||||
2014-09-02 Richard Biener <rguenther@suse.de>
|
||||
|
||||
PR tree-optimization/62695
|
||||
* gfortran.dg/pr62695.f90: New testcase.
|
||||
|
||||
2014-09-01 Oleg Endo <olegendo@gcc.gnu.org>
|
||||
|
||||
PR target/62312
|
||||
|
27
gcc/testsuite/gfortran.dg/pr62695.f90
Normal file
27
gcc/testsuite/gfortran.dg/pr62695.f90
Normal file
@ -0,0 +1,27 @@
|
||||
! { dg-do compile }
|
||||
! { dg-options "-O -fipa-pta" }
|
||||
|
||||
MODULE dbcsr_dist_operations
|
||||
TYPE dbcsr_mp_obj
|
||||
END TYPE dbcsr_mp_obj
|
||||
INTERFACE
|
||||
SUBROUTINE dbcsr_mp_new(mp_env, pgrid, mp_group, mynode, numnodes, myprow,&
|
||||
mypcol)
|
||||
IMPORT
|
||||
TYPE(dbcsr_mp_obj), INTENT(OUT) :: mp_env
|
||||
INTEGER, DIMENSION(0:, 0:), INTENT(IN) :: pgrid
|
||||
END SUBROUTINE dbcsr_mp_new
|
||||
END INTERFACE
|
||||
CONTAINS
|
||||
SUBROUTINE dbcsr_mp_make_env (mp_env, mp_group, &
|
||||
nprocs, pgrid_dims, error)
|
||||
TYPE(dbcsr_mp_obj), INTENT(OUT) :: mp_env
|
||||
OPTIONAL :: pgrid_dims
|
||||
INTEGER :: error_handle, group, mynode, &
|
||||
numnodes, pcol, prow
|
||||
INTEGER, ALLOCATABLE, DIMENSION(:, :) :: pgrid
|
||||
INTEGER, DIMENSION(2) :: coord, myploc, npdims
|
||||
CALL dbcsr_mp_new (mp_env, pgrid, group, mynode, numnodes,&
|
||||
myprow=myploc(1), mypcol=myploc(2))
|
||||
END SUBROUTINE dbcsr_mp_make_env
|
||||
END MODULE dbcsr_dist_operations
|
@ -5042,6 +5042,7 @@ find_func_clobbers (struct function *fn, gimple origt)
|
||||
get_constraint_for_address_of (arg, &rhsc);
|
||||
FOR_EACH_VEC_ELT (rhsc, j, rhsp)
|
||||
process_constraint (new_constraint (lhs, *rhsp));
|
||||
rhsc.truncate (0);
|
||||
}
|
||||
|
||||
/* Build constraints for propagating clobbers/uses along the
|
||||
|
Loading…
x
Reference in New Issue
Block a user