5 ! Check that with array constructors a deep copy is done
9 integer, allocatable :: A(:)
13 type(t), allocatable :: z(:), z2(:)
23 !print *, z(1)%a, z(2)%a, x%A, y%A
24 if (any (z(1)%a /= 11) .or. z(2)%a(1) /= 22 .or. any (x%A /= 11) &
31 !print *, z(1)%a, z(2)%a, x%A, y%A
32 if (any (z(1)%a /= 11) .or. z(2)%a(1) /= 22 .or. any (x%A /= 444) &
37 !print *, z(1)%a, z(2)%a, x%A, y%A
38 if (any (z(1)%a /= 444) .or. z(2)%a(1) /= 555 .or. any (x%A /= 444) &