1! { dg-do compile }
2use, intrinsic :: iso_c_binding
3type, bind(c) :: mytype
4  integer(c_int) :: j
5end type mytype
6
7type(mytype), bind(c) :: mytype_var ! { dg-error "cannot be BIND.C." }
8
9integer(c_int), bind(c) :: i ! { dg-error "cannot be declared with BIND.C." }
10integer(c_int), bind(c), dimension(10) :: my_array ! { dg-error "cannot be BIND.C." }
11
12common /COM/ i
13bind(c) :: /com/
14
15end
16