1! { dg-do compile }
2! { dg-compile-aux-modules "binding_label_tests_11.f03" }
3module binding_label_tests_11_main
4  use iso_c_binding, only: c_int
5  implicit none
6contains
7  function one() bind(c, name="c_one") ! { dg-error "Procedure one with binding label c_one at .1. uses the same global identifier as entity at .2." }
8    integer(c_int) one
9    one = 1
10  end function one
11end module binding_label_tests_11_main
12
13program main
14  use binding_label_tests_11 ! { dg-error "Procedure one with binding label c_one at .1. uses the same global identifier as entity at .2." }
15  use binding_label_tests_11_main
16end program main
17! { dg-final { cleanup-modules "binding_label_tests_11" } }
18