gcc/testsuite/gfortran.dg/proc_ptr_comp_30.f90

   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
   7 type :: t
   8   integer :: i = 3
   9   procedure(type(t)), pointer, nopass :: ppc
  10 end type
  11
  12 type(t) :: x
  13
  14 print *,x  ! { dg-error "cannot have procedure pointer components" }
  15 end