blob: b527aea7c5e7a6d742f66ef873c65bbd626e0111 [file] [log] [blame]
! { dg-do run }
!
! PR 54784: [4.7/4.8 Regression] [OOP] wrong code in polymorphic allocation with SOURCE
!
! Contributed by Jeremy Kozdon <jkozdon@gmail.com>
program bug
implicit none
type :: block
real, allocatable :: fields
end type
type :: list
class(block),allocatable :: B
end type
type :: domain
type(list),dimension(2) :: L
end type
type(domain) :: d
type(block) :: b1
allocate(b1%fields,source=5.)
allocate(d%L(2)%B,source=b1) ! wrong code
if (d%L(2)%B%fields/=5.) STOP 1
end program