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