blob: 45a4d77b04ee14baea4be0ad1a00e7c8386b2185 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O2 -fdump-tree-original" }
type t
logical valid
integer :: x, y
end type
type (t) :: s(5)
type (t) :: d(5)
d = s
end
! { dg-final { scan-tree-dump-times "memcpy" 1 "original" } }