Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/execute/960215-1.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
long double C = 2; long double U = 1; long double Y2 = 3; long double Y1 = 1; long double X, Y, Z, T, R, S; main () { X = (C + U) * Y2; Y = C - U - U; Z = C + U + U; T = (C - U) * Y1; X = X - (Z + U); R = Y * Y1; S = Z * Y2; T = T - Y; Y = (U - Y) + R; Z = S - (Z + U + U); R = (Y2 + U) * Y1; Y1 = Y2 * Y1; R = R - Y2; Y1 = Y1 - 0.5L; if (Z != 6) abort (); exit (0); }