1! { dg-do compile }
2module x
3  use iso_c_binding
4  implicit none
5  private :: bar
6  private :: my_private_sub
7  private :: my_private_sub_2
8  public :: my_public_sub
9contains
10  subroutine bar() bind(c,name="foo") ! { dg-warning "PRIVATE but has been given the binding label" }
11  end subroutine bar
12
13  subroutine my_private_sub() bind(c, name="")
14  end subroutine my_private_sub
15
16  subroutine my_private_sub_2() bind(c) ! { dg-warning "PRIVATE but has been given the binding label" }
17  end subroutine my_private_sub_2
18
19  subroutine my_public_sub() bind(c, name="my_sub")
20  end subroutine my_public_sub
21end module x
22