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