1! { dg-do compile }
2module A
3  use, intrinsic :: iso_c_binding, only: c_int
4  integer(c_int), bind(c, name='my_c_print') :: my_int ! { dg-error "Procedure my_c_print with binding label my_c_print at .1. uses the same global identifier as entity at .2." }
5end module A
6
7program main
8use A
9interface
10   subroutine my_c_print() bind(c) ! { dg-error "Procedure my_c_print with binding label my_c_print at .1. uses the same global identifier as entity at .2." }
11   end subroutine my_c_print
12end interface
13
14call my_c_print()
15end program main
16