1! { dg-do run }
2! This verifies that the compiler will correctly accpet the name="", write out
3! an empty string for the binding label to the module file, and then read it
4! back in.  Also, during gfc_verify_binding_labels, the name="" will prevent
5! any verification (since there is no label to verify).
6module one
7contains
8  subroutine foo() bind(c)
9  end subroutine foo
10end module one
11
12module two
13contains
14  ! This procedure is only used accessed in C
15  ! as procedural pointer
16  subroutine foo() bind(c, name="")
17  end subroutine foo
18end module two
19
20use one, only: foo_one => foo
21use two, only: foo_two => foo
22end
23