derived_init_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 33 行

! { 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) call abort()
    if (any(q(:,:)%a /= 3)) call abort()

    allocate(z%p2, z%p(2:3))
    if (z%p2%a /= 3) call abort()
    if (any(z%p(:)%a /= 3)) call abort()

    allocate(x(1)%p2, x(1)%p(2))
    if (x(1)%p2%a /= 3) call abort()
    if (any(x(1)%p(:)%a /= 3)) call abort()
end program test