1! { dg-do run } 2! PR PR 56872 - wrong front-end optimization with a 3! single array constructor and another value. 4program main 5 real :: s 6 integer :: m 7 integer :: k 8 real :: res 9 10 m = 2 11 s = 1000. 12 13 res = SUM([3.0,(s**(REAL(k-1)/REAL(m-1)),k=1,m),17.]) 14 if (abs(res - 1021.)>1e-4) call abort 15end 16