16 lines
404 B
Plaintext
16 lines
404 B
Plaintext
// rule: skip on cpu=TGLLP
|
|
|
|
export void f_f(uniform float RET[], uniform float aFOO[]) {
|
|
#pragma ignore warning(perf)
|
|
double x = aFOO[programIndex&0x3]*1d100;
|
|
double d, ix;
|
|
ix = rcp(x);
|
|
d = (ix - 1.0d0 / x);
|
|
d = (d < 0.0d0) ? -d : d;
|
|
RET[programIndex] = (d < 1d-15 && !isnan(d)) ? 1.0d0 : 0.0d0;
|
|
}
|
|
|
|
export void result(uniform float RET[]) {
|
|
RET[programIndex] = 1.0d0;
|
|
}
|