diff options
author | Richard Biener <rguenther@suse.de> | 2019-10-21 11:32:25 +0000 |
---|---|---|
committer | Richard Biener <rguenther@suse.de> | 2019-10-21 11:32:25 +0000 |
commit | e5e01899447a3385bdaef7a6f1ec036876dff6a2 (patch) | |
tree | 07edf24212b9ed0a52b0eaed486a193707dee60f /gcc/testsuite | |
parent | f2e653d9386ce2e65241810f8da523bf4f73e907 (diff) |
2019-10-21 Richard Biener <rguenther@suse.de>
PR tree-optimization/92161
* tree-vect-loop.c (vect_analyze_loop_2): Reset stmts def-type
for reductions.
* gfortran.dg/pr92161.f: New testcase.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@277240 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/pr92161.f | 23 |
2 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8fd1fd56f24..d958e642ee0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2019-10-21 Richard Biener <rguenther@suse.de> + + PR tree-optimization/92161 + * gfortran.dg/pr92161.f: New testcase. + 2019-10-21 Kyrylo Tkachov <kyrylo.tkachov@arm.com> * gcc.target/aarch64/acle/rng_1.c: New test. diff --git a/gcc/testsuite/gfortran.dg/pr92161.f b/gcc/testsuite/gfortran.dg/pr92161.f new file mode 100644 index 00000000000..11f1edf6ac0 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr92161.f @@ -0,0 +1,23 @@ +! { dg-do compile } +! { dg-options "-O1 -ftree-loop-vectorize -fno-signed-zeros -fno-trapping-math" } +! { dg-additional-options "-mvsx" { target { powerpc*-*-* } } } + COMPLEX FUNCTION R1 (ZR, CC, EA, U6) + + INTEGER ZR, U6, FZ, J2 + COMPLEX EA(*), CC + DOUBLE PRECISION OS, GA, YU, XT + + OS = DBLE(REAL(CC)) + GA = DBLE(AIMAG(CC)) + J2 = 1 + + DO 5 FZ = 1, ZR + YU = DBLE(REAL(EA(J2))) + XT = DBLE(AIMAG(EA(J2))) + OS = OS + (YU * 2) - (XT * 2) + GA = GA + (YU * 3) + (XT * 3) + J2 = J2 + U6 + 5 CONTINUE + R1 = CMPLX(REAL(OS), REAL(GA)) + RETURN + END |