| ! { dg-do run } |
| ! Check that allocatable/pointer variables of derived types with initialized |
| ! components are are initialized when allocated |
| ! PR 21625 |
| program test |
| |
| implicit none |
| type :: t |
| integer :: a = 3 |
| end type t |
| type :: s |
| type(t), pointer :: p(:) |
| type(t), pointer :: p2 |
| end type s |
| type(t), pointer :: p |
| type(t), allocatable :: q(:,:) |
| type(s) :: z |
| type(s) :: x(2) |
| |
| allocate(p, q(2,2)) |
| if (p%a /= 3) STOP 1 |
| if (any(q(:,:)%a /= 3)) STOP 2 |
| |
| allocate(z%p2, z%p(2:3)) |
| if (z%p2%a /= 3) STOP 3 |
| if (any(z%p(:)%a /= 3)) STOP 4 |
| |
| allocate(x(1)%p2, x(1)%p(2)) |
| if (x(1)%p2%a /= 3) STOP 5 |
| if (any(x(1)%p(:)%a /= 3)) STOP 6 |
| end program test |
| |
