Subversion Repositories openrisc

! { 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" } }