gcc/testsuite/gfortran.dg/pr64925.f90

! { dg-do compile }
! PR fortran/64925
! Original test case provided by Bill Long <longb at cray dot com>
!
subroutine foo(nnn, aaa, bbb, ccc, ddd)
  implicit none
  integer :: nnn, aaa, bbb(nnn)
  integer :: i
  do i=1,nnn
     aaa = aaa + bbb(ccc(i))
  end do
  call ddd(aaa)
contains
  integer function ccc(i)  ! { dg-error "conflicts with DUMMY" }
    integer :: i
    ccc = i
  end function ccc
  subroutine ddd(j)        ! { dg-error "conflicts with DUMMY" }
    integer j
    j = j + 1 
  end subroutine ddd
end subroutine foo