From: Ira Rosen <ira.rosen@linaro.org>
Date: Thu, 1 Sep 2011 08:46:59 +0000 (+0000)
Subject: re PR tree-optimization/50178 (ICE with gfortran -O3, not with gfortran -02)
X-Git-Tag: releases/gcc-4.7.0~4056
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=c49eacd5445f8a46b015995b9834f9c2b13b38c3;p=thirdparty%2Fgcc.git

re PR tree-optimization/50178 (ICE with gfortran -O3, not with gfortran -02)


        PR tree-optimization/50178
        * gfortran.dg/vect/pr50178.f90: New test.

From-SVN: r178397
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 05ee81bc9b1a..3c4932a23749 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-01  Ira Rosen  <ira.rosen@linaro.org>
+
+	PR tree-optimization/50178
+	* gfortran.dg/vect/pr50178.f90: New test.
+
 2011-08-31  Martin Jambor  <mjambor@suse.cz>
 
 	PR middle-end/49886
diff --git a/gcc/testsuite/gfortran.dg/vect/pr50178.f90 b/gcc/testsuite/gfortran.dg/vect/pr50178.f90
new file mode 100644
index 000000000000..e24ce5b15f6c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/vect/pr50178.f90
@@ -0,0 +1,29 @@
+! { dg-do compile }
+
+module yemdyn
+   implicit none
+   integer, parameter :: jpim = selected_int_kind(9)
+   integer, parameter :: jprb = selected_real_kind(13,300)
+   real(kind=jprb) :: elx
+   real(kind=jprb), allocatable :: xkcoef(:)
+   integer(kind=jpim),allocatable :: ncpln(:), npne(:)
+end module yemdyn
+
+subroutine suedyn
+
+   use yemdyn
+
+   implicit none
+
+   integer(kind=jpim) :: jm, jn
+   real(kind=jprb) :: zjm, zjn, zxxx
+
+   jn=0
+   do jm=0,ncpln(jn)
+      zjm=real(jm,jprb) / elx
+      xkcoef(npne(jn)+jm) = - zxxx*(zjm**2)**0.5_jprb
+   end do
+
+end subroutine suedyn
+
+! { dg-final { cleanup-tree-dump "vect" } }