procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/29804 (segfault with -fbounds-check on allocatable derived type components)

Browse source 
PR fortran/29804
	* gfortran.dg/alloc_comp_misc_1.f90: New test.

From-SVN: r126578
This commit is contained in:
Francois-Xavier Coudert 2007-07-12 10:58:49 +00:00 • committed by François-Xavier Coudert
parent 8f20c48505
commit 57200e086e
2 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2007-07-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/29804
* gfortran.dg/alloc_comp_misc_1.f90: New test.
2007-07-11 Daniel Berlin <dberlin@dberlin.org>
* gfortran.fortran-torture/compile/pr32663.f90: New test.

28
gcc/testsuite/gfortran.dg/alloc_comp_misc_1.f90 Normal file
View file

@ -0,0 +1,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