! { dg-do run } | |
! | |
! Test the fix for PR64757. | |
! | |
! Contributed by Michael Lee Rilee <mike@rilee.net> | |
! | |
type :: Test | |
integer :: i | |
end type | |
type :: TestReference | |
class(Test), allocatable :: test | |
end type | |
type(TestReference) :: testList | |
type(test) :: x | |
testList = TestReference(Test(99)) ! ICE in fold_convert_loc was here | |
x = testList%test | |
select type (y => testList%test) ! Check vptr set | |
type is (Test) | |
if (x%i .ne. y%i) STOP 1 | |
class default | |
STOP 2 | |
end select | |
end | |