3 ! PR 47455: [4.6 Regression][OOP] internal compiler error: in fold_convert_loc, at fold-const.c:2028
5 ! Contributed by Thomas Henlich <thenlich@users.sourceforge.net>
13 procedure(find_x), pointer :: ppc
17 type(tx), target :: zero = tx(0)
20 class(t), intent(in) :: this
21 type(tx), pointer :: find_x
28 class(t),allocatable :: this
29 procedure(find_x), pointer :: pp
31 ! (1) ordinary function call
34 if (this%x%i /= 1) call abort()
35 ! (2) procedure pointer
39 if (this%x%i /= 2) call abort()
44 if (this%x%i /= 3) call abort()
47 this%x = this%find_x()
48 if (this%x%i /= 4) call abort()