! { dg-do compile }
! { dg-additional-options "-std=legacy" }
!
! PR fortran/50410
!
! Silently allow overlapping initialization in legacy mode (used to ICE)

program p
  implicit none
  type t
     integer :: g = 1
  end type t
  type(t) :: u = t(2)
  data u%g /3/
  print *, u    ! this might print "2"
end