13 lines
345 B
Fortran
13 lines
345 B
Fortran
! { 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
|