[AArch64] Merge stores of D-register values with different modes
[official-gcc.git] / gcc / testsuite / gfortran.dg / reassoc_10.f
blob4a0a6c23f03daf70da696d0edb68b26e450807a7
1 ! { dg-do compile }
2 ! { dg-options "-O3 -ffast-math -ffp-contract=off -fdump-tree-optimized" }
4 SUBROUTINE S55199(P,Q,Dvdph)
5 implicit none
6 real(8) :: c1,c2,c3,P,Q,Dvdph
7 c1=0.1d0
8 c2=0.2d0
9 c3=0.3d0
10 Dvdph = c1 + 2.*P*c2 + 3.*P**2*Q**3*c3
11 END
13 ! There should be five multiplies following un-distribution
14 ! and power expansion.
16 ! { dg-final { scan-tree-dump-times " \\\* " 5 "optimized" } }