|
|
@@ -0,0 +1,63 @@ |
|
|
// RUN: %clang_cc1 -fsyntax-only -verify -DCHECK_ERROR %s |
|
|
|
|
|
float function_scope(float a) { |
|
|
#pragma float_control(precise, on) junk // expected-warning {{extra tokens at end of '#pragma float_control' - ignored}} |
|
|
return a; |
|
|
} |
|
|
|
|
|
#ifdef CHECK_ERROR |
|
|
#pragma float_control(push) |
|
|
#pragma float_control(pop) |
|
|
#pragma float_control(precise, on, push) |
|
|
void check_stack() { |
|
|
#pragma float_control(push) // expected-error {{can only appear at file scope}} |
|
|
#pragma float_control(pop) // expected-error {{can only appear at file scope}} |
|
|
#pragma float_control(precise, on, push) // expected-error {{can only appear at file scope}} |
|
|
#pragma float_control(except, on, push) // expected-error {{can only appear at file scope}} |
|
|
#pragma float_control(except, on, push, junk) // expected-error {{float_control is malformed}} |
|
|
return; |
|
|
} |
|
|
#endif |
|
|
|
|
|
// RUN: %clang -c -fsyntax-only %s -DDEFAULT -Xclang -verify |
|
|
// RUN: %clang -c -fsyntax-only %s -ffp-model=precise -DPRECISE -Xclang -verify |
|
|
// RUN: %clang -c -fsyntax-only %s -ffp-model=strict -DSTRICT -Xclang -verify |
|
|
// RUN: %clang -c -fsyntax-only %s -ffp-model=fast -DFAST -Xclang -verify |
|
|
double a = 0.0; |
|
|
double b = 1.0; |
|
|
|
|
|
//FIXME At some point this warning will be removed, until then |
|
|
// document the warning |
|
|
#ifdef FAST |
|
|
// expected-warning@+1{{pragma STDC FENV_ACCESS ON is not supported, ignoring pragma}} |
|
|
#pragma STDC FENV_ACCESS ON // expected-error{{'#pragma STDC FENV_ACCESS ON' is illegal when precise is disabled}} |
|
|
#else |
|
|
#pragma STDC FENV_ACCESS ON // expected-warning{{pragma STDC FENV_ACCESS ON is not supported, ignoring pragma}} |
|
|
#endif |
|
|
#ifdef STRICT |
|
|
#pragma float_control(precise, off) // expected-error {{'#pragma float_control(precise, off)' is illegal when except is enabled}} |
|
|
#else |
|
|
#pragma float_control(precise, off) // expected-error {{'#pragma float_control(precise, off)' is illegal when fenv_access is enabled}} |
|
|
#endif |
|
|
//RUN -ffp-model=strict |
|
|
//error: '#pragma float_control(precise, off)' is illegal when except is enabled |
|
|
//with default, fast or precise: no errors |
|
|
|
|
|
#pragma float_control(precise, on) |
|
|
#pragma float_control(except, on) // OK |
|
|
#ifndef STRICT |
|
|
#pragma float_control(except, on) |
|
|
#pragma float_control(precise, off) // expected-error {{'#pragma float_control(precise, off)' is illegal when except is enabled}} |
|
|
#endif |
|
|
int main() { |
|
|
#ifdef STRICT |
|
|
#pragma float_control(precise, off) // expected-error {{'#pragma float_control(precise, off)' is illegal when except is enabled}} |
|
|
#else |
|
|
#pragma float_control(precise, off) // expected-error {{'#pragma float_control(precise, off)' is illegal when except is enabled}} |
|
|
#endif |
|
|
#pragma float_control(except, on) |
|
|
// error: '#pragma float_control(except, on)' is illegal when precise is disabled |
|
|
double x = b / a; // only used for fp flag setting |
|
|
if (a == a) // only used for fp flag setting |
|
|
return 0; //(int)x; |
|
|
} |