! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s
! CHECK-NOT: error:
! CHECK-NOT: Internal:
program main
contains
  subroutine internal_sub()
    integer :: i, result
    ! Host-associated sibling internal function name should be shadowed
    ! by this statement function definition.
    stmt_function(i) = i * 2
    i = 1
    result = stmt_function(i)
  end subroutine internal_sub
  integer function stmt_function(arg)
    integer :: arg
    stmt_function = arg * 3
  end function stmt_function
end program main