! { dg-do compile }
! { dg-options "-Wall" }
! PR 94270 - this used to give a bogus warning.
! Test case by Ignacio Fernández Galván.
subroutine foo()
external bar
call meh(bar)
call foo_internal()
contains
  subroutine foo_internal()
    call meh(bar)
  end subroutine foo_internal
end subroutine foo