2 ! { dg
-options
"-O3 -ffast-math -fdump-tree-optimized" }
4 SUBROUTINE S55199
(P
,Dvdph
)
6 real(8) :: c1
,c2
,c3
,P
,Dvdph
10 Dvdph
= c1
+ 2.*P**2*c2
+ 3.*P**3*c3
13 ! There should be three multiplies following un
-distribution
14 ! and power expansion
.
16 ! { dg
-final
{ scan
-tree
-dump
-times
" \\\* " 3 "optimized" } }