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

re PR tree-optimization/70043 (The compiler hangs in a fortran test-case with -Ofast -g -march=haswell)

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

From-SVN: r251638

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/vect/pr70043.f90

-! { 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)