! { dg-do compile }
! PR fortran/104332 - ICE with bind(c) in block data
! Contributed by G. Steinmetz

block data
  bind(c) :: a ! { dg-error "cannot be BIND\\(C\\)" }
end

block data aa
   real, bind(c) :: a ! { dg-error "cannot be BIND\\(C\\)" }
end

block data bb
   real    :: a ! { dg-error "cannot be BIND\\(C\\)" }
   bind(c) :: a
end

block data cc
   common /a/ x
   bind(c) :: /a/
end