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
)