15 lines
347 B
Plaintext
15 lines
347 B
Plaintext
// rule: skip on cpu=TGLLP
|
|
|
|
export void f_f(uniform float RET[], uniform float aFOO[]) {
|
|
double x = aFOO[programIndex]*1d100;
|
|
double d, invsqrt = rsqrt(x);
|
|
d = (x * (invsqrt * invsqrt)) - 1.0d0;
|
|
if (d < 0.0d0) d = -d;
|
|
RET[programIndex] = d > 1d-15;
|
|
}
|
|
|
|
|
|
export void result(uniform float RET[]) {
|
|
RET[programIndex] = 0;
|
|
}
|