3 use, intrinsic :: iso_c_binding, only: c_int
4 integer(c_int), bind(c, name='my_c_print') :: my_int ! { dg-error "collides" }
10 subroutine my_c_print() bind(c) ! { dg-error "collides" }
11 end subroutine my_c_print
17 ! { dg-final { cleanup-modules "a" } }