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