! { dg-do compile } | |
! { dg-options "-O3 -ffast-math -fdump-tree-optimized" } | |
function test(b) | |
real a | |
a = (b + 5.) - 5. | |
test = a | |
end | |
! We need an explicit +5 and -5, and an intermediate ((bla)) expression | |
! (the reassoc barrier). Make use of "." matching lineends. | |
! { dg-final { scan-tree-dump "\\\+ 5.*\\\)\\\).* - 5" "optimized" } } |