gcc/testsuite/gfortran.dg/binding_label_tests_28.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/61450
   4 ! Contributed by Francois-Xavier Coudert  <fxcoudert@gmail.com>
   5 !
   6 module p
   7   integer i1 ! { dg-error "Global binding name 'foo' at .1. is already being used at .2." }
   8   bind(c,name="foo") :: i1
   9 end module
  10
  11 subroutine truc() bind(c,name="foo") ! { dg-error "Global binding name 'foo' at .1. is already being used at .2." }
  12 end