From: Jakub Jelinek <jakub@redhat.com>
Date: Mon, 4 Sep 2017 07:52:06 +0000 (+0200)
Subject: re PR tree-optimization/70043 (The compiler hangs in a fortran test-case with -Ofast... 
X-Git-Tag: upstream/12.2.0~37298
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=792ce29f1cfe2b34a9f081d929e57135f36c3374;p=platform%2Fupstream%2Fgcc.git

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 628c1f3..38294c6 100644
--- 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
--- 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)