| ! { dg-do compile } |
| ! { dg-options "-O -ffast-math -fdump-tree-original -fdump-tree-optimized" } |
| |
| ! Verify we associate properly during folding |
| ! Verify we propagate constants in the presence of PAREN_EXPR |
| |
| function test(a) |
| real b, c, d |
| c = a |
| d = 5 |
| b = (c + 5 - c) |
| b = (c + d - c) |
| test = a + b - 5 |
| end |
| |
| ! { dg-final { scan-tree-dump "b = 5" "original" } } |
| ! { dg-final { scan-tree-dump "c_. = .a" "optimized" } } |
| ! { dg-final { scan-tree-dump "return c_.;" "optimized" } } |
| ! { dg-final { cleanup-tree-dump "original" } } |
| ! { dg-final { cleanup-tree-dump "optimized" } } |