Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
reassoc_1.f90
blob: 71a9bc9286eb551924822b28ca93a8fac29e61eb [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O3 -ffast-math -fdump-tree-optimized"
}
function
test
(
b
)
real a
a
=
(
b
+
5.
)
-
5.
test
=
a
end
!
{
dg
-
final
{
scan
-
tree
-
dump
"\\\+ 5.*\\\)\\\) - 5"
"optimized"
}
}
!
{
dg
-
final
{
cleanup
-
tree
-
dump
"optimized"
}
}