OSDN Git Service

2008-03-04 Uros Bizjak <ubizjak@gmail.com>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / reassoc_1.f90
1 ! { dg-do compile }
2 ! { dg-options "-O3 -ffast-math -fdump-tree-optimized" }
3
4 function test(b)
5   real a
6   a = (b + 5.) - 5.
7   test = a
8 end
9
10 ! { dg-final { scan-tree-dump "\\\+ 5.*\\\)\\\) - 5" "optimized" } }
11 ! { dg-final { cleanup-tree-dump "optimized" } }