1! { dg-do compile }
2!
3! PR fortran/48858
4!
5subroutine foo() bind(C, name="bar") ! { dg-error "Global binding name 'bar' at .1. is already being used as a SUBROUTINE at .2." }
6end subroutine foo
7
8subroutine sub() bind(C, name="bar") ! { dg-error "Global binding name 'bar' at .1. is already being used as a SUBROUTINE at .2." }
9end subroutine sub
10
11