summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/alloc_comp_misc_1.f90
blob: e118b0328017c2886346d9c890ee8bc7f56217c1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
! 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