! { dg-do compile }
!
! PR fortran/52542
!
! Ensure that the procedure myproc is Bind(C).
!
! Contributed by Mat Cross of NAG
!
interface
  subroutine s() bind(c)
  end subroutine s
end interface
procedure(s) :: myproc
call myproc()
end
! { dg-final { scan-assembler-not "myproc_" } }