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/] [intent_out_5.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run}`	`! { dg-do run}`
`!`	`!`
`! PR fortran/41479`	`! PR fortran/41479`
`!`	`!`
`! Contributed by Juergen Reuter.`	`! Contributed by Juergen Reuter.`
`!`	`!`
`program main`	`program main`
`type :: container_t`	`type :: container_t`
`integer :: n = 42`	`integer :: n = 42`
`! if the following line is omitted, the problem disappears`	`! if the following line is omitted, the problem disappears`
`integer, dimension(:), allocatable :: a`	`integer, dimension(:), allocatable :: a`
`end type container_t`	`end type container_t`

`type(container_t) :: container`	`type(container_t) :: container`

`if (container%n /= 42) call abort()`	`if (container%n /= 42) call abort()`
`if (allocated(container%a)) call abort()`	`if (allocated(container%a)) call abort()`
`container%n = 1`	`container%n = 1`
`allocate(container%a(50))`	`allocate(container%a(50))`
`call init (container)`	`call init (container)`
`if (container%n /= 42) call abort()`	`if (container%n /= 42) call abort()`
`if (allocated(container%a)) call abort()`	`if (allocated(container%a)) call abort()`
`contains`	`contains`
`subroutine init (container)`	`subroutine init (container)`
`type(container_t), intent(out) :: container`	`type(container_t), intent(out) :: container`
`end subroutine init`	`end subroutine init`
`end program main`	`end program main`