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