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