1! { dg-do run } 2! PR fortran/30720 3program array_function_1 4 integer :: a(5), b, l, u 5 l = 4 6 u = 2 7 8 a = (/ 1, 2, 3, 4, 5 /) 9 10 b = f(a(l:u) - 2) 11 if (b /= 0) call abort 12 13 b = f(a(4:2) - 2) 14 if (b /= 0) call abort 15 16 b = f(a(u:l) - 2) 17 if (b /= 3) call abort 18 19 b = f(a(2:4) - 2) 20 if (b /= 3) call abort 21 22 contains 23 integer function f(x) 24 integer, dimension(:), intent(in) :: x 25 f = sum(x) 26 end function 27end program 28