1! { dg-do compile } 2! { dg-options "-O3 -ffast-math -fdump-tree-optimized" } 3 4function test(b) 5 real a 6 a = (b + 5.) - 5. 7 test = a 8end 9 10! We need an explicit +5 and -5, and an intermediate ((bla)) expression 11! (the reassoc barrier). Make use of "." matching lineends. 12! { dg-final { scan-tree-dump "\\\+ 5.*\\\)\\\).* - 5" "optimized" } } 13! { dg-final { cleanup-tree-dump "optimized" } } 14