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).
8 subroutine foo() bind(c)
14 ! This procedure is only used accessed in C
15 ! as procedural pointer
16 subroutine foo() bind(c, name="")
20 use one, only: foo_one => foo
21 use two, only: foo_two => foo
24 ! { dg-final { cleanup-modules "one two" } }