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