gcc/testsuite/gfortran.dg/pdt_30.f90

   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
   7 program 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
  17 end program vw