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