gcc/testsuite/gfortran.dg/host_assoc_blockdata_2.f90

   1 ! { dg-do compile }
   2 MODULE globals
   3   TYPE :: type1
   4      sequence
   5      integer :: x
   6   END TYPE type1
   7   TYPE (type1) :: pdm_bps
   8   common /co/ pdm_bps
   9 END module globals
  10 BLOCK DATA
  11    use globals
  12 END BLOCK DATA
  13
  14 program main
  15   use globals
  16   common /co/ pdm_bps ! { dg-error "already in a COMMON block" }
  17 end program main
  18 ! { dg-final { cleanup-modules "globals" } }