2 ! { dg-compile-aux-modules "binding_label_tests_11.f03" }
3 module binding_label_tests_11_main
4 use iso_c_binding, only: c_int
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." }
11 end module binding_label_tests_11_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
17 ! { dg-final { cleanup-modules "binding_label_tests_11" } }