re PR tree-optimization/70043 (The compiler hangs in a fortran test-case with -Ofast...

	PR tree-optimization/70043
	PR testsuite/82093
	* gfortran.dg/vect/pr70043.f90 (fn1): Start loop from 1 instead of 0.

From-SVN: r251638

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 628c1f3..38294c6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2017-09-04  Jakub Jelinek  <jakub@redhat.com>
+
+       PR tree-optimization/70043
+       PR testsuite/82093
+       * gfortran.dg/vect/pr70043.f90 (fn1): Start loop from 1 instead of 0.
+
 2017-09-04  Uros Bizjak  <ubizjak@gmail.com>
 
        * gcc.target/i386/adx-check.h (main): Use __get_cpuid_count.

diff --git a/gcc/testsuite/gfortran.dg/vect/pr70043.f90 b/gcc/testsuite/gfortran.dg/vect/pr70043.f90
index 36d6a0b..ddc3c3a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/vect/pr70043.f90
+++ b/gcc/testsuite/gfortran.dg/vect/pr70043.f90
@@ -1,4 +1,5 @@
-! { dg-do compile  }
+! PR tree-optimization/70043
+! { dg-do compile }
 ! { dg-additional-options "-Ofast -g" }
 ! { dg-additional-options "-march=haswell" { target i?86-*-* x86_64-*-* } }
 
@@ -6,7 +7,7 @@ subroutine fn1(a, b)
   real(8), intent(in) ::  b(100)
   real(8), intent(inout) :: a(100)
   real(8) c
-  do i=0,100
+  do i=1,100
      if( a(i) < 0.0 ) then
         c =  a(i) * b(i)
         a(i) = a(i) - c / b(i)