Increase timeout factor for hppa*-*-* in gcc.dg/long_branch.c
[official-gcc.git] / gcc / testsuite / gfortran.dg / pdt_30.f90
blob47f7c7754656448ef4ce88e69c5ea10071f33a3e
1 ! { dg-do compile }
3 ! PR 89601: [8/9 Regression] [PDT] ICE: Segmentation fault (in resolve_component)
5 ! Contributed by Arseny Solokha <asolokha@gmx.com>
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