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