diff options
author | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
---|---|---|
committer | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
commit | 554fd8c5195424bdbcabf5de30fdc183aba391bd (patch) | |
tree | 976dc5ab7fddf506dadce60ae936f43f58787092 /gcc/testsuite/gcc.dg/dfp/ddmode-ice.c | |
download | cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.bz2 cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.xz |
obtained gcc-4.6.4.tar.bz2 from upstream website;upstream
verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.
downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.
if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
Diffstat (limited to 'gcc/testsuite/gcc.dg/dfp/ddmode-ice.c')
-rw-r--r-- | gcc/testsuite/gcc.dg/dfp/ddmode-ice.c | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/dfp/ddmode-ice.c b/gcc/testsuite/gcc.dg/dfp/ddmode-ice.c new file mode 100644 index 000000000..19f303801 --- /dev/null +++ b/gcc/testsuite/gcc.dg/dfp/ddmode-ice.c @@ -0,0 +1,54 @@ +/* { dg-do compile } */ +/* { dg-options "-O1" } */ + +/* This used to result in an ICE. */ + +_Decimal64 y[258][258]; +_Decimal64 dd[258][258]; +_Decimal64 ry[258][258]; +_Decimal64 +foo (void) +{ + int i; + int j; + int m; + int im; + int jm; + int ip; + int jp; + int i2m; + int i1p; + _Decimal64 a; + _Decimal64 b; + _Decimal64 c; + _Decimal64 qi; + _Decimal64 qj; + _Decimal64 xx; + _Decimal64 yx; + _Decimal64 xy; + _Decimal64 yy; + _Decimal64 rel; + _Decimal64 qxx; + _Decimal64 qyy; + _Decimal64 qxy; + do + { + jp = j + 1; + for (i = i1p; i <= i2m; i++) + { + ip = i + 1; + yx = y[ip][j] - y[im][j]; + yy = y[i][jp] - y[i][jm]; + a = 0.25dd * (xy * xy + yy * yy); + b = 0.25dd * (xx * xx + yx * yx); + c = 0.125dd * (xx * xy + yx * yy); + qj = 0.0dd; + dd[i][m] = b + a * rel + b; + qxx = y[ip][j] - 2.0dd * y[i][j] + y[im][j]; + qyy = y[i][jp] - 2.0dd * y[i][j] + y[i][jm]; + qxy = y[ip][jp] - y[ip][jm] - y[im][jp] + y[im][jm]; + ry[i][m] = a * qxx + b * qyy - c * qxy + yx * qi + yy * qj; + } + } + while (1); +} |