! { dg-do compile }! PR fortran/34202! ICE on contruction of empty types! Testcase contributed by Tobias Burnusprogram bug4aimplicit none type bug4! Intentionally left emptyend type bug4type compoundtype(bug4)bend type compoundtype(bug4),parameter::f=bug4()type(compound),parameter::g=compound(bug4())end program bug4a