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