diff options
| author | Ira Rosen <ira.rosen@linaro.org> | 2011-09-01 08:46:59 +0000 |
|---|---|---|
| committer | Ira Rosen <irar@gcc.gnu.org> | 2011-09-01 08:46:59 +0000 |
| commit | c49eacd5445f8a46b015995b9834f9c2b13b38c3 (patch) | |
| tree | 2df7915a4713c31eb9d4c0591c555bf716a53f4b | |
| parent | 957b9e227a109417b0759de2e1c0bbb47b566e71 (diff) | |
| download | gcc-c49eacd5445f8a46b015995b9834f9c2b13b38c3.zip gcc-c49eacd5445f8a46b015995b9834f9c2b13b38c3.tar.gz gcc-c49eacd5445f8a46b015995b9834f9c2b13b38c3.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/vect/pr50178.f90 | 29 |
2 files changed, 34 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 05ee81b..3c4932a 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 0000000..e24ce5b --- /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" } } |