1! PR 29804
2! This used to fail, it was magically fixed; keep in the testsuite so
3! that we keep an eye on it.
4!
5! { dg-do run }
6! { dg-options "-fbounds-check" }
7program dt_bnd
8  implicit none
9
10  type dbprc_type
11    integer, allocatable          :: ipv(:)
12  end type dbprc_type
13
14  type(dbprc_type), allocatable :: pre(:)
15  call ppset(pre)
16
17contains
18  subroutine ppset(p)
19    type(dbprc_type),allocatable, intent(inout) :: p(:)
20    integer                       :: nl
21    nl = 1
22
23    allocate(p(1))
24    if (.not.allocated(p(nl)%ipv)) then
25      allocate(p(1)%ipv(1))
26    end if
27  end subroutine ppset
28end program dt_bnd
29