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