2 ! Test the fix for PR39519, where the presence of the pointer
3 ! as the first component was preventing the second from passing
4 ! the "alloc_comp" attribute to the derived type.
6 ! Contributed by Gilbert Scott <gilbert.scott@easynet.co.uk>
11 INTEGER, ALLOCATABLE
:: A(:)
19 if (T2
%A(1) .NE
. 23) CALL ABORT