blob: 69fa7ed78278140bdb12c5069a9918bd7902391a [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O2" }
program test
call test2 ()
contains
subroutine test2 ()
type t
integer, allocatable :: x
end type t
type t2
class(t), allocatable :: a
end type t2
type(t2) :: one, two
allocate (two%a)
one = two
end subroutine test2
end program test