2 ! PR fortran/98307 - Dependency check fails when using "allocatable"
7 logical :: valid
= .true
.
9 integer, allocatable
:: p(:)
19 v(1)%p(:) = [1, 2, 3, 4, 5, 6, 7, 8]
20 v(2)%p(:) = [13, 14, 15, 16, 17, 18, 19, 20]
22 v(i
)%p(1:v(i
)%s
) = v(3-i
)%p(1:v(i
)%s
)
24 if (any(v(2)%p(:) /= [1, 2, 3, 4, 5, 6, 19, 20])) stop 1
26 v(1)%p(:) = [1, 2, 3, 4, 5, 6, 7, 8]
27 v(2)%p(:) = [13, 14, 15, 16, 17, 18, 19, 20]
28 forall (i
=1:2, v(i
)%valid
)
29 v(i
)%p(1:v(i
)%s
) = v(3-i
)%p(1:v(i
)%s
)
31 if (any(v(2)%p(:) /= [1, 2, 3, 4, 5, 6, 19, 20])) stop 2