gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90

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