1! { dg-do compile }
2!
3! PR 89601: [8/9 Regression] [PDT] ICE: Segmentation fault (in resolve_component)
4!
5! Contributed by Arseny Solokha <asolokha@gmx.com>
6
7program vw
8  interface
9     real function ul (ki)
10       real :: ki
11     end function ul
12  end interface
13  type :: q8 ()  ! { dg-error "A type parameter list is required" }
14     procedure (ul), pointer, nopass :: pj
15  end type q8
16  type (q8) :: ki
17end program vw
18