3 ! Test the fix for PR43111, in which necessary calls to
4 ! internal PACK/UNPACK were not being generated because
5 ! of an over agressive fix to PR41113/7.
7 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
12 IF (ANY(I.NE.(/3,5,7,9/))) CALL ABORT()
17 INTEGER, POINTER, DIMENSION(:) :: data
22 INTEGER, TARGET, DIMENSION(10) :: scratch=(/(i,i=1,10)/)
24 d%data=>scratch(1:9:2)
25 ! write(6,*) d%data(i:)
33 ! { dg-final { cleanup-modules "M1" } }