1! { dg-do run }
2! { dg-options "-ffrontend-optimize" }
3! PR 56872 - wrong front-end optimization with a single constructor.
4! Original bug report by Rich Townsend.
5  integer :: k
6  real :: s
7  integer :: m
8  s = 2.0
9  m = 4
10  res = SUM([(s**(REAL(k-1)/REAL(m-1)),k=1,m)])
11  if (abs(res - 5.84732246) > 1e-6) call abort
12  end
13