1! { dg-do compile } 2! PR fortran/64925 3! Original test case provided by Bill Long <longb at cray dot com> 4! 5subroutine foo(nnn, aaa, bbb, ccc, ddd) 6 implicit none 7 integer :: nnn, aaa, bbb(nnn) 8 integer :: i 9 do i=1,nnn 10 aaa = aaa + bbb(ccc(i)) 11 end do 12 call ddd(aaa) 13contains 14 integer function ccc(i) ! { dg-error "conflicts with DUMMY" } 15 integer :: i 16 ccc = i 17 end function ccc 18 subroutine ddd(j) ! { dg-error "conflicts with DUMMY" } 19 integer j 20 j = j + 1 21 end subroutine ddd 22end subroutine foo 23