37 lines
625 B
Fortran
37 lines
625 B
Fortran
! { 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
|
|
|
|
! { dg-final { cleanup-modules "mycommodule comblocktests" } }
|