21 lines
582 B
Fortran
21 lines
582 B
Fortran
! { 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" } }
|