1! { dg-do compile }
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.
5!
6! Contributed by Harald Anlauf  <anlauf@gmx.de>
7!
8module gfcbug45
9  implicit none
10contains
11  subroutine foo
12    real, external :: mysum
13    integer :: i
14    real    :: a
15    real, parameter :: eps(2) = (/ 1, 99 /)
16    i = 1
17    a = sum (eps(i:i+1) * eps)
18    print *, a
19  end subroutine foo
20end module gfcbug45
21  use gfcbug45
22  call foo
23end
24