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

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

From-SVN: r126578

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/alloc_comp_misc_1.f90

+! 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