2 ! { dg-additional-options "-O0 -fdump-tree-original" }
3 ! PR 57992 - this was packed/unpacked unnecessarily.
4 ! Original case by Tobias Burnus.
8 integer, pointer, contiguous
:: f2(:)
14 ! { dg-final { scan-tree-dump-not "_gfortran_internal_pack" "original" } }
15 ! { dg-final { scan-tree-dump-not "_gfortran_internal_unpack" "original" } }