Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_allocate_3.f03 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! PR 41581: [OOP] Allocation of a CLASS with SOURCE=<class> does not work ! ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> type t end type t type,extends(t) :: t2 integer :: i = 54 real :: r = 384.02 end type t2 class(t), allocatable :: m1, m2 allocate(t2 :: m2) select type(m2) type is (t2) print *, m2%i, m2%r if (m2%i/=54) STOP 1 if (abs(m2%r-384.02)>1E-3) STOP 2 m2%i = 42 m2%r = -4.0 class default STOP 3 end select allocate(m1, source=m2) select type(m1) type is (t2) print *, m1%i, m1%r if (m1%i/=42) STOP 4 if (abs(m1%r+4.0)>1E-3) STOP 5 class default STOP 6 end select end