gcc/testsuite/gfortran.dg/com_block_driver.f90

   1 ! { dg-do run }
   2 module 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
  10 end module myComModule
  11
  12 module 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
  28 end module comBlockTests
  29
  30 program comBlockDriver
  31   use comBlockTests
  32
  33   call testTypes()
  34 end program comBlockDriver
  35
  36 ! { dg-final { cleanup-modules "mycommodule comblocktests" } }