! { 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 |