! { dg-do compile } | |
module binding_label_tests_5 | |
use, intrinsic :: iso_c_binding | |
interface | |
subroutine sub0() bind(c, name='c_sub') ! Odd declaration but perfectly valid | |
end subroutine sub0 | |
subroutine sub1() bind(c, name='c_sub') ! Ditto. | |
end subroutine sub1 | |
end interface | |
end module binding_label_tests_5 |