blob: 41999b3e60dfa2b6d95a026fb36eb1d9a9c16d69 [file] [log] [blame]
! { 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