4 ! Contributed by Francois-Xavier Coudert <fxcoudert@gmail.com>
7 integer i1
! { dg-error "Global binding name 'foo' at .1. is already being used at .2." }
8 bind(c
,name
="foo") :: i1
11 subroutine truc() bind(c
,name
="foo") ! { dg-error "Global binding name 'foo' at .1. is already being used at .2." }