2 ! Tests the fix for PR42309, in which the indexing of 'Q'
5 ! Contributed by Gilbert Scott <gilbert.scott@easynet.co.uk>
12 TYPE(T), TARGET :: T1(0:3)
13 INTEGER, POINTER :: P(:)
14 REAL :: SOURCE(4) = [10., 20., 30., 40.]
20 IF (ANY (T1%I .NE. [999, 2, 999, 4])) CALL ABORT
21 IF (ANY (T1%X .NE. SOURCE)) CALL ABORT
24 INTEGER, POINTER :: Q(:)