blob: 87d6c6b78f972d7718d231063f2b76288dbb41d7 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
module test_common_binding_labels_3
use, intrinsic :: iso_c_binding, only: c_double
implicit none
common /mycom/ r, s
real(c_double) :: r
real(c_double) :: s
bind(c, name="my_common_block") :: /mycom/
end module test_common_binding_labels_3
|