1 2 3 4 5 6 7 8 9 10 11 12
! { 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