3 ! PR 55072: [4.6/4.7/4.8 Regression] Missing internal_pack leads to wrong code with derived type
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
7 program GiBUU_neutrino_bug
13 type(particle
), dimension(1:2,1:2) :: OutPart
23 type(particle
) :: j(:)
29 type(particle
) :: k(1:2)
31 if (any (k(1:2)%ID
/= [1, 1])) STOP 1