mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
29 lines
619 B
Fortran
29 lines
619 B
Fortran
! PR 29804
|
|
! This used to fail, it was magically fixed; keep in the testsuite so
|
|
! that we keep an eye on it.
|
|
!
|
|
! { dg-do run }
|
|
! { dg-options "-fbounds-check" }
|
|
program dt_bnd
|
|
implicit none
|
|
|
|
type dbprc_type
|
|
integer, allocatable :: ipv(:)
|
|
end type dbprc_type
|
|
|
|
type(dbprc_type), allocatable :: pre(:)
|
|
call ppset(pre)
|
|
|
|
contains
|
|
subroutine ppset(p)
|
|
type(dbprc_type),allocatable, intent(inout) :: p(:)
|
|
integer :: nl
|
|
nl = 1
|
|
|
|
allocate(p(1))
|
|
if (.not.allocated(p(nl)%ipv)) then
|
|
allocate(p(1)%ipv(1))
|
|
end if
|
|
end subroutine ppset
|
|
end program dt_bnd
|