Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/alloc_comp_misc_1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! 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