1! { dg-do run }
2module myComModule
3  use, intrinsic :: iso_c_binding
4
5  common /COM2/ R2, S2
6  real(c_double) :: r2
7  real(c_double) :: s2
8  bind(c) :: /COM2/
9
10end module myComModule
11
12module comBlockTests
13  use, intrinsic :: iso_c_binding
14  use myComModule
15
16  implicit none
17
18  common /COM/ R, S
19  real(c_double) :: r
20  real(c_double) :: s
21  bind(c) :: /COM/
22
23  contains
24
25  subroutine testTypes()
26    implicit none
27  end subroutine testTypes
28end module comBlockTests
29
30program comBlockDriver
31  use comBlockTests
32
33  call testTypes()
34end program comBlockDriver
35