1! { dg-do compile }
2!
3! PR 46201: [F03] ICE on procedure pointer component call
4!
5! Contributed by Stephen J. Bespalko <sjbespa@comcast.net>
6
7type t
8 procedure(character), nopass, pointer :: ppc
9end type
10type(t),dimension(1) :: v
11print *,v(1)%ppc()
12end
13