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