https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102685
G. Steinmetz <gs...@t-online.de> changed: What |Removed |Added ---------------------------------------------------------------------------- Keywords| |accepts-invalid, | |ice-on-invalid-code --- Comment #1 from G. Steinmetz <gs...@t-online.de> --- This invalid variant is still accepted : (also related to pr100970) $ cat z2.f90 program p type t integer :: a(1) end type type(t) :: x(2) = t([1,2]) print *, x end