| /* PR tree-optimization/20139 |
| This testcase is derived from gcc.dg/20020720-1.c. Here we check |
| that the optimization happens at tree level. */ |
| |
| /* { dg-do compile } */ |
| /* { dg-options "-O2 -fdump-tree-final_cleanup" } */ |
| /* LLVM LOCAL test not applicable */ |
| /* { dg-require-fdump "" } */ |
| |
| extern double fabs (double); |
| extern void link_error (void); |
| |
| void |
| foo (double x) |
| { |
| double p, q; |
| |
| p = fabs (x); |
| q = 0.0; |
| if (p < q) |
| link_error (); |
| } |
| |
| /* { dg-final { scan-tree-dump-times "link_error" 0 "final_cleanup" } } */ |
| /* { dg-final { cleanup-tree-dump "final_cleanup" } } */ |