gcc/testsuite/gfortran.dg/type_to_class_2.f03

   1 ! { dg-do run }
   2 !
   3 ! Test the fix for PR64757.
   4 !
   5 ! Contributed by Michael Lee Rilee  <mike@rilee.net>
   6 !
   7   type :: Test
   8     integer :: i
   9   end type
  10
  11   type :: TestReference
  12      class(Test), allocatable :: test
  13   end type
  14
  15   type(TestReference) :: testList
  16   type(test) :: x
  17
  18   testList = TestReference(Test(99))  ! ICE in fold_convert_loc was here
  19
  20   x = testList%test
  21
  22   select type (y => testList%test)    ! Check vptr set
  23     type is (Test)
  24       if (x%i .ne. y%i) call abort
  25     class default
  26       call abort
  27   end select
  28 end
  29
  30