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