3 ! PR 55072: [4.6/4.7/4.8 Regression] Missing internal_pack leads to wrong code with derived type
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
11 type(t
), target
:: tgt(4,4)
12 type(t
), pointer :: p(:,:)
32 if (any (x(1:4)%i
/= [1, 9, 3, 11])) call abort()