1! { dg-do compile } 2! PR fortran/34202 3! ICE on contruction of empty types 4! Testcase contributed by Tobias Burnus 5 6program bug4a 7 implicit none 8 type bug4 9 ! Intentionally left empty 10 end type bug4 11 12 type compound 13 type(bug4) b 14 end type compound 15 16 type(bug4), parameter :: f = bug4() 17 type(compound), parameter :: g = compound(bug4()) 18end program bug4a 19 20