gcc/testsuite/gfortran.dg/class_to_type_3.f03

   1 ! { dg-do run }
   2 ! Tests the fix for pr63553 in which the class container was being
   3 ! assigned to derived types, rather than the data.
   4 !
   5 ! Contributed by <patnel97269-gfortran@yahoo.fr>
   6 !
   7 program toto
   8   implicit none
   9   type mother
  10     integer :: i
  11   end type mother
  12   type,extends(mother) :: child
  13   end type child
  14
  15   call comment1
  16   call comment2
  17
  18 contains
  19   subroutine comment1
  20     type(mother) :: tm
  21     class(mother),allocatable :: cm
  22
  23     allocate (cm)
  24     cm%i = 77
  25     tm = cm
  26     if (tm%i .ne. cm%i) STOP 1
  27   end subroutine
  28
  29   subroutine comment2
  30     class(mother),allocatable :: cm,cm2
  31
  32     allocate(cm)
  33     allocate(child::cm2)
  34     cm%i=10
  35     select type (cm2)
  36        type is (child)
  37          cm2%mother=cm
  38     end select
  39     if (cm2%i .ne. cm%i) STOP 2
  40   end subroutine
  41 end program