From 21375f0ded2dbc4240bd9e3bfcb8f48451ce02b4 Mon Sep 17 00:00:00 2001 From: Richard Biener Date: Wed, 4 Oct 2017 07:43:54 +0000 Subject: [PATCH] id-17.f: For ilp32 allow graphite codegen errors and scan for one. 2017-10-04 Richard Biener * gfortran.dg/graphite/id-17.f: For ilp32 allow graphite codegen errors and scan for one. * gfortran.dg/graphite/id-19.f: Likewise. * gfortran.dg/graphite/pr29832.f90: Likewise. * gfortran.dg/graphite/pr42326-1.f90: Likewise. * gfortran.dg/graphite/pr42326.f90: Likewise. * gfortran.dg/graphite/pr68550-2.f90: Likewise. * gfortran.dg/graphite/run-id-2.f90: Likewise. * gfortran.dg/graphite/run-id-3.f90: Likewise. * gfortran.dg/graphite/pr42393-1.f90: Dump graphite. From-SVN: r253394 --- gcc/testsuite/ChangeLog | 13 +++++++++++++ gcc/testsuite/gfortran.dg/graphite/id-17.f | 2 ++ gcc/testsuite/gfortran.dg/graphite/id-19.f | 2 ++ gcc/testsuite/gfortran.dg/graphite/pr29832.f90 | 2 ++ gcc/testsuite/gfortran.dg/graphite/pr42326-1.f90 | 3 ++- gcc/testsuite/gfortran.dg/graphite/pr42326.f90 | 3 ++- gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90 | 2 +- gcc/testsuite/gfortran.dg/graphite/pr68550-2.f90 | 3 +++ gcc/testsuite/gfortran.dg/graphite/run-id-2.f90 | 2 ++ gcc/testsuite/gfortran.dg/graphite/run-id-3.f90 | 2 ++ 10 files changed, 31 insertions(+), 3 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7bd355603cc..9205fbe6846 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,16 @@ +2017-10-04 Richard Biener + + * gfortran.dg/graphite/id-17.f: For ilp32 allow graphite codegen + errors and scan for one. + * gfortran.dg/graphite/id-19.f: Likewise. + * gfortran.dg/graphite/pr29832.f90: Likewise. + * gfortran.dg/graphite/pr42326-1.f90: Likewise. + * gfortran.dg/graphite/pr42326.f90: Likewise. + * gfortran.dg/graphite/pr68550-2.f90: Likewise. + * gfortran.dg/graphite/run-id-2.f90: Likewise. + * gfortran.dg/graphite/run-id-3.f90: Likewise. + * gfortran.dg/graphite/pr42393-1.f90: Dump graphite. + 2017-10-03 Michael Meissner * gcc.target/powerpc/float128-odd.c: New test. diff --git a/gcc/testsuite/gfortran.dg/graphite/id-17.f b/gcc/testsuite/gfortran.dg/graphite/id-17.f index 4bebed01678..043ef988e50 100644 --- a/gcc/testsuite/gfortran.dg/graphite/id-17.f +++ b/gcc/testsuite/gfortran.dg/graphite/id-17.f @@ -1,3 +1,4 @@ +! { dg-additional-options "-fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" { target ilp32 } } SUBROUTINE SPECTOP(Dr,N) DIMENSION d1(0:32,0:32) , Dr(0:32,0:32) , x(0:32) DO k = 0 , N @@ -14,3 +15,4 @@ ENDDO ENDDO END +! { dg-final { scan-tree-dump-times "code generation error" 1 " graphite" { target ilp32 } } } diff --git a/gcc/testsuite/gfortran.dg/graphite/id-19.f b/gcc/testsuite/gfortran.dg/graphite/id-19.f index e05f764b294..824397c2ae2 100644 --- a/gcc/testsuite/gfortran.dg/graphite/id-19.f +++ b/gcc/testsuite/gfortran.dg/graphite/id-19.f @@ -1,3 +1,4 @@ +! { dg-additional-options "-fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" { target ilp32 } } SUBROUTINE ECCODR(FPQR) DIMENSION FPQR(25,25,25) INTEGER P,Q,R @@ -13,3 +14,4 @@ 140 QM2= QM2+TWO 150 PM2= PM2+TWO END +! { dg-final { scan-tree-dump-times "code generation error" 1 " graphite" { target ilp32 } } } diff --git a/gcc/testsuite/gfortran.dg/graphite/pr29832.f90 b/gcc/testsuite/gfortran.dg/graphite/pr29832.f90 index ab222ab03a6..5ded45ed886 100644 --- a/gcc/testsuite/gfortran.dg/graphite/pr29832.f90 +++ b/gcc/testsuite/gfortran.dg/graphite/pr29832.f90 @@ -1,5 +1,6 @@ ! { dg-do run } ! { dg-options "-O2 -ftree-loop-linear" } +! { dg-additional-options "-fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" { target ilp32 } } ! Program to test the scalarizer program testarray @@ -24,3 +25,4 @@ program testarray end do end program +! { dg-final { scan-tree-dump-times "code generation error" 1 " graphite" { target ilp32 } } } diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42326-1.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42326-1.f90 index 8c9d110b22a..512b71650a0 100644 --- a/gcc/testsuite/gfortran.dg/graphite/pr42326-1.f90 +++ b/gcc/testsuite/gfortran.dg/graphite/pr42326-1.f90 @@ -1,7 +1,7 @@ ! { dg-do compile { target i?86-*-* x86_64-*-* } } ! { dg-require-effective-target ilp32 } ! { dg-require-effective-target sse2 } -! { dg-options "-O2 -floop-parallelize-all -fprefetch-loop-arrays -msse2" } +! { dg-options "-O2 -floop-parallelize-all -fprefetch-loop-arrays -msse2 -fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" } subroutine phasad(t,i,ium) implicit none @@ -17,3 +17,4 @@ subroutine phasad(t,i,ium) return end subroutine phasad +! { dg-final { scan-tree-dump-times "code generation error" 1 " graphite" } } diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42326.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42326.f90 index 06ef2b70673..9544ee7c9f7 100644 --- a/gcc/testsuite/gfortran.dg/graphite/pr42326.f90 +++ b/gcc/testsuite/gfortran.dg/graphite/pr42326.f90 @@ -1,7 +1,7 @@ ! { dg-do compile { target i?86-*-* x86_64-*-* } } ! { dg-require-effective-target ilp32 } ! { dg-require-effective-target sse2 } -! { dg-options "-O2 -floop-strip-mine -fprefetch-loop-arrays -msse2" } +! { dg-options "-O2 -floop-strip-mine -fprefetch-loop-arrays -msse2 -fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" } subroutine blts ( ldmx, ldmy, v, tmp1, i, j, k) implicit none @@ -34,3 +34,4 @@ subroutine phasad(t,i,ium) return end subroutine phasad +! { dg-final { scan-tree-dump-times "code generation error" 1 " graphite" } } diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90 index 84c9c57b24e..21aa7d126ee 100644 --- a/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90 +++ b/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90 @@ -1,4 +1,4 @@ -! { dg-options "-O2 -fgraphite-identity -fno-loop-block -fno-loop-interchange -fno-loop-strip-mine --param graphite-allow-codegen-errors=1" } +! { dg-options "-O2 -fgraphite-identity -fno-loop-block -fno-loop-interchange -fno-loop-strip-mine -fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" } MODULE beta_gamma_psi INTEGER, PARAMETER :: dp=KIND(0.0D0) diff --git a/gcc/testsuite/gfortran.dg/graphite/pr68550-2.f90 b/gcc/testsuite/gfortran.dg/graphite/pr68550-2.f90 index fae0c92a7dc..afdc47fa654 100644 --- a/gcc/testsuite/gfortran.dg/graphite/pr68550-2.f90 +++ b/gcc/testsuite/gfortran.dg/graphite/pr68550-2.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-floop-nest-optimize -fcheck=bounds -O1" } +! { dg-additional-options "-fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" { target ilp32 } } SUBROUTINE PD2VAL(RES,NDERIV,TG1,TG2,C0) INTEGER, PARAMETER :: dp=8 @@ -12,3 +13,5 @@ SUBROUTINE PD2VAL(RES,NDERIV,TG1,TG2,C0) RES(K)=RES(K)+DOT_PRODUCT(T1(0:3),C0(96:99,K))*T2(10) ENDDO END SUBROUTINE PD2VAL + +! { dg-final { scan-tree-dump-times "code generation error" 1 " graphite" { target ilp32 } } } diff --git a/gcc/testsuite/gfortran.dg/graphite/run-id-2.f90 b/gcc/testsuite/gfortran.dg/graphite/run-id-2.f90 index c4fa1d06141..c6d2f947838 100644 --- a/gcc/testsuite/gfortran.dg/graphite/run-id-2.f90 +++ b/gcc/testsuite/gfortran.dg/graphite/run-id-2.f90 @@ -1,3 +1,4 @@ +! { dg-additional-options "-fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" { target ilp32 } } IMPLICIT NONE INTEGER, PARAMETER :: dp=KIND(0.0D0) REAL(KIND=dp) :: res @@ -64,3 +65,4 @@ CONTAINS END FUNCTION exp_radius_very_extended END +! { dg-final { scan-tree-dump-times "code generation error" 1 " graphite" { target ilp32 } } } diff --git a/gcc/testsuite/gfortran.dg/graphite/run-id-3.f90 b/gcc/testsuite/gfortran.dg/graphite/run-id-3.f90 index 54139efcc8f..03b62103e67 100644 --- a/gcc/testsuite/gfortran.dg/graphite/run-id-3.f90 +++ b/gcc/testsuite/gfortran.dg/graphite/run-id-3.f90 @@ -1,5 +1,6 @@ ! { dg-do run } ! { dg-options "-ffrontend-optimize -floop-nest-optimize" } +! { dg-additional-options "-fdump-tree-graphite-details --param graphite-allow-codegen-errors=1" { target ilp32 } } ! PR 56872 - wrong front-end optimization with a single constructor. ! Original bug report by Rich Townsend. integer :: k @@ -10,3 +11,4 @@ res = SUM([(s**(REAL(k-1)/REAL(m-1)),k=1,m)]) if (abs(res - 5.84732246) > 1e-6) call abort end +! { dg-final { scan-tree-dump-times "code generation error" 1 " graphite" { target ilp32 } } } -- 2.30.2