blob: 0066a4ac876331445ab21574bcf23ebe381a6629 [file] [log] [blame]
! { dg-do compile }
!
! PR fortran/61450
! Contributed by Francois-Xavier Coudert <fxcoudert@gmail.com>
!
module p
integer i1 ! { dg-error "Global binding name 'foo' at .1. is already being used at .2." }
bind(c,name="foo") :: i1
end module
subroutine truc() bind(c,name="foo") ! { dg-error "Global binding name 'foo' at .1. is already being used at .2." }
end