! { dg-do compile } module binding_label_tests_5 use, intrinsic :: iso_c_binding interface subroutine sub0() bind(c, name='c_sub') ! { dg-error "collides" } end subroutine sub0 subroutine sub1() bind(c, name='c_sub') ! { dg-error "collides" } end subroutine sub1 end interface end module binding_label_tests_5