blob: ce9cd9f93a74d83d4dfe8ac5b22bbf6d89bfbfd4 [file] [log] [blame]
! { dg-do run }
! This verifies that the compiler will correctly accpet the name="", write out
! an empty string for the binding label to the module file, and then read it
! back in. Also, during gfc_verify_binding_labels, the name="" will prevent
! any verification (since there is no label to verify).
module one
subroutine foo() bind(c)
end subroutine foo
end module one
module two
! This procedure is only used accessed in C
! as procedural pointer
subroutine foo() bind(c, name="")
end subroutine foo
end module two
use one, only: foo_one => foo
use two, only: foo_two => foo