2 ! { dg-require-visibility "" }
4 ! PR 47565: [4.6 Regression][OOP] Segfault with TBP
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
10 procedure(find_y), pointer, nopass :: ppc
12 procedure, nopass :: find_y
14 integer, private :: count = 0
16 function find_y() result(res)
17 integer, allocatable :: res
26 class(t), allocatable :: this
31 ! (1) ordinary procedure
33 if (y/=1) call abort()
34 ! (2) procedure pointer component
36 if (y/=2) call abort()
37 ! (3) type-bound procedure
39 if (y/=3) call abort()