Subversion Repositories openrisc

! { dg-do compile }

module A

  use, intrinsic :: iso_c_binding, only: c_int

  integer(c_int), bind(c, name='my_c_print') :: my_int ! { dg-error "collides" }

end module A

program main

use A

interface

   subroutine my_c_print() bind(c) ! { dg-error "collides" }

   end subroutine my_c_print

end interface

call my_c_print()

end program main

! { dg-final { cleanup-modules "a" } }