1! { dg-do compile }
2module test_common_binding_labels_2
3  use, intrinsic :: iso_c_binding, only: c_double, c_int
4  implicit none
5  
6  common /mycom/ r, s
7  real(c_double) :: r
8  real(c_double) :: s
9  bind(c, name="my_common_block") :: /mycom/
10
11  common /com2/ i 
12  integer(c_int) :: i
13  bind(c, name="") /com2/
14end module test_common_binding_labels_2
15