blob: 0f8b5cb15b0e5e1abd630fe3b6ba21d9bb66f65c [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 "d = " 1 "original" } }
! { dg-final { cleanup-tree-dump "original" } }