Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_allocate_23.f08 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! ! Test that pr78356 is fixed. ! Contributed by Janus Weil and Andrew Benson program p implicit none type ac end type type, extends(ac) :: a integer, allocatable :: b end type type n class(ac), allocatable :: acr(:) end type type(n) :: s,t allocate(a :: s%acr(1)) call nncp(s,t) select type (cl => t%acr(1)) class is (a) if (allocated(cl%b)) error stop class default error stop end select contains subroutine nncp(self,tg) type(n) :: self, tg allocate(tg%acr(1),source=self%acr(1)) end end