1! { dg-do compile } 2! PR 38672 - this used to ICE. 3MODULE globals 4 TYPE :: type1 5 integer :: x 6 END TYPE type1 7 TYPE (type1) :: pdm_bps 8END module globals 9BLOCK DATA 10 use globals 11END BLOCK DATA 12