1! { dg-do compile }
2module test_common_binding_labels_3
3 use, intrinsic :: iso_c_binding, only: c_double
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/
10end module test_common_binding_labels_3
11