https://gcc.gnu.org/bugzilla/show_bug.cgi?id=97589
--- Comment #13 from Thomas Koenig <tkoenig at gcc dot gnu.org> --- (In reply to Thomas Koenig from comment #12) > Reduced test case: > > program main > type global_model_state > real, allocatable :: ps(:) [:] > end type global_model_state > type (global_model_state) :: ms_full > allocate (ms_full % ps(100) [*]) > ms_full %ps = 42. > end program main That one is now fixed, but the original test case still segfaults.