URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [alloc_comp_result_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! Test the fix for PR38802, in which the nulling of the result 'p'`	`! Test the fix for PR38802, in which the nulling of the result 'p'`
`! in 'a_fun' would cause a segfault.`	`! in 'a_fun' would cause a segfault.`
`!`	`!`
`! Posted on the gfortran list by Marco Restelli http://gcc.gnu.org/ml/fortran/2009-01/`	`! Posted on the gfortran list by Marco Restelli http://gcc.gnu.org/ml/fortran/2009-01/`

`!`	`!`
`module mod_a`	`module mod_a`
`implicit none`	`implicit none`
`public :: a_fun, t_1, t_2`	`public :: a_fun, t_1, t_2`
`private`	`private`
`type t_1`	`type t_1`
`real :: coeff`	`real :: coeff`
`end type t_1`	`end type t_1`
`type t_2`	`type t_2`
`type(t_1), allocatable :: mons(:)`	`type(t_1), allocatable :: mons(:)`
`end type t_2`	`end type t_2`
`contains`	`contains`
`function a_fun(r) result(p)`	`function a_fun(r) result(p)`
`integer, intent(in) :: r`	`integer, intent(in) :: r`
`type(t_2) :: p(r+1)`	`type(t_2) :: p(r+1)`
`p = t_2 ([t_1 (99)])`	`p = t_2 ([t_1 (99)])`
`end function a_fun`	`end function a_fun`
`end module mod_a`	`end module mod_a`

`program test`	`program test`
`use mod_a, only: a_fun, t_1, t_2`	`use mod_a, only: a_fun, t_1, t_2`
`implicit none`	`implicit none`
`type(t_2) x(1)`	`type(t_2) x(1)`
`x = a_fun(0)`	`x = a_fun(0)`
`if (any (x(1)%mons%coeff .ne. 99)) call abort`	`if (any (x(1)%mons%coeff .ne. 99)) call abort`
`end program test`	`end program test`
`! { dg-final { cleanup-modules "mod_a" } }`	`! { dg-final { cleanup-modules "mod_a" } }`