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