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