1! { dg-do compile } 2! 3! PR 47768: ICE: printing a derived-type variable with proc-pointer components 4! 5! Contributed by Janus Weil <janus@gcc.gnu.org> 6 7type :: t 8 integer :: i = 3 9 procedure(type(t)), pointer, nopass :: ppc 10end type 11 12type(t) :: x 13 14print *,x ! { dg-error "cannot have procedure pointer components" } 15end 16