1! { dg-do compile } 2! PR53478 3 4module test_bug ! { dg-error "Procedure 'test' with binding label 'Test_Bug' at .1. uses the same global identifier as entity at .2." } 5 6use, intrinsic :: ISO_C_BINDING 7 8contains 9 10 subroutine test() bind (C, name = "Test_Bug") ! { dg-error "Procedure 'test' with binding label 'Test_Bug' at .1. uses the same global identifier as entity at .2." } 11 end subroutine 12 13end module 14