blob: 0445635c881623858ceba0697bac272794c1a5f6 [file] [log] [blame]
! { dg-do run }
module myComModule
use, intrinsic :: iso_c_binding
common /COM2/ R2, S2
real(c_double) :: r2
real(c_double) :: s2
bind(c) :: /COM2/
end module myComModule
module comBlockTests
use, intrinsic :: iso_c_binding
use myComModule
implicit none
common /COM/ R, S
real(c_double) :: r
real(c_double) :: s
bind(c) :: /COM/
contains
subroutine testTypes()
implicit none
end subroutine testTypes
end module comBlockTests
program comBlockDriver
use comBlockTests
call testTypes()
end program comBlockDriver