2 ! Tests the fix for PR29821, which was due to failure to simplify the
3 ! array section, since the section is not constant, provoking failure
4 ! to resolve the argument of SUM and therefore to resolve SUM itself.
6 ! Contributed by Harald Anlauf <anlauf@gmx.de>
12 real, external :: mysum
15 real, parameter :: eps(2) = (/ 1, 99 /)
17 a = sum (eps(i:i+1) * eps)
24 ! { dg-final { cleanup-modules "gfcbug45" } }